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[57] ABSTRACT 

A computer-aided process is disclosed for automatically 
generating a camera-ready hardcopy of a graphical plot 
upon command instructions inputted via a conventional 
storage tube graphics display terminal having an ad- 
dressable cross-hair cursor and a keyboard. In accor- 
dance with an interactive graphics code or program, 
tabular data coordinates stored in computer file form 
are retrieved and plotted on appropriately titled and 
scaled axes with the plotted coordinates being intercon- 
nected along curves formed of a smooth or linear nature 
by interpolation. T^^p ^aphir-^] p]^| y iewed on the 
di splay terminal is further enhanced by inclusion j )f 
l abels, snadeo areas, and reference symbols and ch^c - 

. nnpy nf an af^sffnj^f^H 



ter 



hardcopy unit COUple H tn {he rficplav terminal. 
5 Claims, 18 Drawing Figures 
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mance, and easily adapted to existing automated 
COMPUTER-AIDED PROCESS FOR graphic art equipment 

GENERATING CAMERA-READY GRAPHICAL Briefly, these and other aspects of the present inven- 

ARTWORK tion are accomplished by a computer-aided process for 

5 automatically generating a camera-ready hardcopy of a 
STATEMENT OF GOVERNMENT INTEREST graphical plot upon command instructions inputted via 
The invention described herein may be manufactured ^ conventional storage tube graphics display terminal 
and used by or for the Government of the United States addressable cross hair cursor and a keyboard, 

of America for governmental purposes without the accordance with an interactive graphics code or 
payment of any royalties thereon or therefor. program, tabular data coordinates stored in computer 

file form are retrieved and plotted on appropriately 
APPENDIX titled and scaled axes with the plotted coordinates being 

An appendix consisting of 51 pages is included in this interconnected along curves formed of a smooth or 
application. linear nature by interpolation. The graphical plot 

15 viewed on the display terminal is further enhanced by 
BACKGROUND OF THE INVENTION inclusion of labels, shaded areas, and reference symbols 

The present invention relates to graphic arts in gen- characters prior to printing out the hardcopy on an 

eral and more particulariy to an improved process for associated hardcopy unit coupled to the display termi- 
automatically generating camera-ready graphical art- ^^b, , _ ^ ^. ^ ^ . , 
work with the aid of a computer. ^ understanding of these and other aspects 

Graphical artwork, more specifically, graphical plots f present invention, reference may be made to the 
are commonly used as a visual aid to display a substan- ^""^^^^ description taken in conjunction 

tial amount of information regarding the coordinate T'^ ^^"^ accompanying drawm^ m which like refer- 
relationships of certain variable physical quantities. In „ ^"^^ "^^^^s designate like parts throughout the fig- 
addition to the plotting of the basic coordinate data, tnereoi. 

typically for selected values of a variable factor or con- BRIEF DESCRIPTION OF THE DRAWING 
dition, such graphical plots generally include a variety cf/- i i ui i j- i. - i_ t_ ^ 

of reference lines or c™ Is well Is shading patterns „ "° J. ,n fl^Z "^"^ '^"'"'"f 

for ready observation and interpretation of the data. ,„ T™"^! ^^J^^ T ^ P'F^^f°'^^^^f^y 
"-l^or f '"^ Wghly^fonnative graphical ^° i'l^^l.Z;^t;:if2.r " """"^ 

K :?d — u"^^^^^^^ J^-^ f the computer- 

I^^«t,«i r«^fi,«^o «f «u«*«r*u^ 1. *u / • process of the present invention, showmg the 

faonal methods of photolithography hat require pro- broad stages of data processing steps and their standard 
duction of a high-quality reproduction copy of the 35 sequence and a ineir sianaara 

i^Sfnrn™ FIGS. 3A-3P, inclusive, represent a more detailed 

ing by a process camera. computer-aided process in accor- 

Commonly known as bemg c^era-ready, such high- dance with the present invention, 
quality reproduction copies of the graphical plots have 

been difficult and time-consuming to produce as well as 40 DESCRIPTION OF THE PREFERRED 

to edit and correct if necessary. Hand-drawing and EMBODIMENT 

editing of the plots by skilled draftsmen, although satis- Referring now to FIG. 1. the process for automated 

factory from a quality standpoint, contmues to be pains- graphics generation according to the present invention 

Uibng and costly. MachineKirawn plots can be pro- is primarily aided and implemented by a general pur- 
duced m substantially less time and have generally been 45 pose digital computer system 10 serving as the host and 

adequate in quality and detail. However, such machine- programmed to operate in accordance with an interac- 

drawn artwork stdl requires manual "cut-outs" and tive graphics code, described in greater detail hereinaf- 

paste-ons to meet camera-ready requirements. ter. 

SUMMARY OF THE INVENTION should be noted that the interactive graphics code, 

50 used by the host computer system 10 to interpret and 

Accordingly, it is a main purpose and general object perform the interactive requests of the user is also de- 
of the present mvention to provide an unproved process scribed in the Appendix, which is the source code lis- 
implemented by a computer for generating graphical ting of the interactive graphics code written in FOR- 
artwork of a finished quality ready for photoligho- TRAN IV. This source code listing of the instructions, 
graphic reproduction. 55 routines, and other contents of the interactive graphics 

It is a more particular object of the present invention code in appropriate sequence may be implemented, for 
to provide a computer-aided process for producing example, on a CDC Cyber Model 175 computer using a 
onginal camera-ready graphical plots in full detail with- FORTRAN computer CDC Version 438, a linker/- 
out reqmnng any manual drafting labor. loader CDC Version 1.5538 for Network Operating 

It is a further object of the present invention to pro- 60 System (NOS) 1.4, and a library module TEKTRONIX 
vide an automated process for creating revised camera- Plot 10. 

ready graphical plots that permits custom editing and Stored with sets of tabular data coordinates in corn- 
correcting of existing plots quickly and precisely with- puter file form, digital computer system 10 is coupled to 
out manually redrawing revisions and affixing those a conventional storage tube graphics display terminal 12 
revisions to the existing plots. 65 which accepts data from and sends data to the computer 

It is a still further object of the present invention to system. Display terminal 12 is equipped with a screen 14 
provide a computer-aided process for graphical art- on which output from computer system 10 is displayed 
work generation that is cost effective, reliable in perfor- to a user, the screen being the face of a storage tube 
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device (not shown), typically a cathode ray tube (CRT), query is issued for a communication transmission rate 

which maintains a display once written, for an indefmite with the host computer system 10. In block 52, the user 

period of time until an erasure is made. Display terminal picks an appropriate code number 1-4, indicating the 

12 is further provided with a control panel 16 on which desired rate of character transmission or baud rate. For 

a keyboard 18 is located for allowing the user to enter 5 example, codes 1-4 typically designate baud rates of 

alphanumeric (A/N) data onto the screen 14 and onto 1200, 2400, 4800 and 9600 characters per second, re- 

the computer system 10. A cursor control 22 also lo- spectively. Block 53 checks the baud rate code and 

cated on the control panel 16 is employed by the user to passes to block 54 if valid; otherwise, the process moves 

address a graphic cross-hair cursor 20 movable across back to block 52. Block 54 makes a read attempt to 

screen 14 to specify positional input of data. The display 10 determine if the user has connected through the host 

terminal 12 with the aforedescribed features is a com- computer system 10 another file containing an old plot 

mercially available unit, one suitable such unit being the data set. Block 55 checks this read and if an end of file 

Tektronix Model 4015 with its associated graphics soft- ^as found, then a new plot is implied and the user is 

ware. A conventional hardcopy unit 24 compatible with prompted for minimum data (plot axis labels for stor- 

display terminal 12 is coupled thereto for producing, in 15 ^ge) in block 57, Block 58 queries the user for decimal 

accordance with the present invention, a camera-ready, pieces for each data group. These data are those gener- 

hardcopy 26 of a graphical plot produced on the screen ^tg^ during the plot creation and used to generate a data 

, , - file of the created plot for storage in the files of the host 

Referring now to FIG. 2, Block 31 represents a gen- computer system 10. Blocks 59 and 60 check and query 

eral start up procedure in which the user establishes 20 ^j^^ ^^^^ ^^^^ Referring back to the other 

communication with the host computer system 10 and ^^^^^ ^j^^j^ ^ ^^^^^ 5^ ^^^^ ^^^^ 

commands use of old data files and eventually begins ^^^^ Bj^^j^ ^1 ^^^^ 

execution of the mteractive graphics code. Block 31 is a ^^^^ations transmission rate and the character size on 

query as to creatmg a new da^ file or usmg the old one. ^^^^^ ^ j ^^^^^ to small. Block 62 

If the user s response is new data, ^en a query for axis 25 interactive plotting in subroutine TIGPPR. 

labels and other mmimum graphica daU is mdicated. n ^^^^^ ^ /^^^ ^^^^ ^^^^^ ^^^^ 

Block 31, the old data is automatically mputted into ^ , j c 1* j r u j * • *i. 

1 ..u I u 1 J *u • c *• Di 1 input values or default. The default data range is the 

storage along with labels and other information. Block r . , , r -.u v j v j * 

° r ^, . ^ ^. , I.' u minimum and maximum values of the X and Y data, 

33 IS the top of the interactive loop in which the user . . T.^ ^ ■ ^' . c - . . 

physically moves the coordinates on screen 14 via 30 respectively. Block 64 mitialues a set of pomts to the 

cross-hair cursor 20 and keys a single character on key- f.*^"^ coordinate data forming a linked list. The Imked 

-board 18. This single character and the coordinates list is used to efficiently add or delete a coord 

..comprise a user command. Block 33 additionally per- pomt to a bne or shaded area. Block 65 sets the graphics 

. forms other data checks such as, if this is a new plot (no associated with the display tennmal 12 for use 

data to plot), a create line command is automatically 35 ff stroke generated characters rather than a composite 

executed. Block 34 checks for a valid command. An (o^^,^^ ^^^d size horizontal characters). Tlus is 

invalid command sends control back to block 33. Blocks required in order to generate labe s at any size and 

35 thru 38 interpret the command, use the coordinate rotation. Block 66 operates on the linked list, determmes 

data, if required, and act appropriately on the plot. the number of Imes and where each hne begins m the 

Three groups of commands are available: label, coor- 40 ^^'^'^ed list data storage, 

dinate and plot. Block 36 only concerns labeling. Block Referring now to FIG. 3B, block 67 checks the num- 

37 concerns only line forming, coordinate points and t)er or coordinate pomts and, if it is zero (a new plot), 

shading. Block 38 concerns the general plot attributes, the user is prompted and sent to the command mode. If 

such as size, grid and line types. Block 39 thru 46, inclu- ^^^ta exists, then a check is made m block 69 to see if this 

sive, follow a command to plot the data. Block 39 uses 45 data has been plotted once. If not, block 70 prints the 

the minimum and maximum data ranges and the grid ^lain plot label and GRID/DATA range values. A 

requirements, and picks an appropriate scale on each window on screen 14 (physical plot size) is now set in 

axis, finally plotting the axis and labels. Block 40, be- block 17. Block 72 checks the validity of data ranges. If 

sides plotting other labels, saves the four coordinate they are not valid, block 73 computes minimum and 

points around the label for later use. Blocks 41 thru 44, 50 maximum values, respectively. Block 74 determines 

inclusive, are concerned with lines on the plot. Options data scaling parameters from m i nim u m and maximum X 

are available for smooth curve, linear, or just symbols. and Y values. The scales being preset to multiples of 1, 

In addition, lines can be one of 9 dash line types with 2 or 5. Block 75 computes the scaling of real units to the 

options for solid thick or thin lines, as well as closed or screen units, typically 4096 x 4096, on the display termi- 

open curves. Block 45 plots the grid as specified and 55 nal 12. Block 76 checks for first time plot and gives the 

uses the label coordinate point data generated in block user a chance to change size, grid and other parameters. 

40 such that no grid line extends thru a label. Block 46 Blocks 77, 78 and 79 are reference to respective subrou- 

completes the plot by determining shading regions and tines for drawing curves and labels, shown in greater 

plotting them with a uniform grid of dots again avoid- detail in FIGS. 3L, 3M and 30, respectively. Blocks 80 

ing shading of labels. The end result of block 46 is that 60 thru 83 determine if default axis labels are drawn, and 

the user has on the screen 14 the latest edited plot. At draw all other labels using the subroutine PTITE. 

this point control is transferred to block 33 for more shown in greater detail in FIG. 3M. 

editing or termination of the plot. Referring now to FIG. 3C, block 84 checks for exis- 

Referring now to FIG. 3A, in Block 50 the user turns tence of shading. If shading exists, then subroutine 

on the display terminal 12. connects to the host com- 65 SHADIT, shown in FIG. 3P, is called in block 85. 

puter system 10 and begins execution of the interactive Similarly, both X and Y Grid requirements are checked 

graphics code. Block 51 prompts the user as to product and subroutines PGRIDX and PGRIDY shown in 

and date of version of the graphics code. In addition, a FIG. 3N are called as needed. Block 90 turns off the 
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stroke characters since they are not needed in the com- 
mand mode. 

Referring now to FIG. 3D, in block 91, the user 
physically positions the movable cross-hair cursor 20 to 
a position on screen 14 after which a single character on 
keyboard 18 is depressed. The character depressed is 
used to determine the coordinate command and the 
position of the cross-hair cursor 20 on screen 14 used to 
compute a coordinate position X and Y. Block 92 
checks for a valid command by performing a table look- 
up using the ASCII code for the character keyed. The 
ASCII is the American Standard Code for Information 
Interchange, a standard code consisting of 7-bit ele- 
ments for information interchange among data process- 
ing communications systems. Block 92 flags the charac- 
ter as invalid, i.e. illegal, and re-prompts user in block 
91. A valid coordinate conmiand from the user contin- 
ues the process as desired, and such valid commands are 
as follows: 



10 



15 



VALID COORPrNATE COMMAND SUMMARY 



COMMAND 


DESCRIPTION 


A 


add point after rererence point 


B 


add point before reference point 


C 


identify closest data point (to cross hairs) 


D 


delete data point 


E 


exit 


F 


format (change line type) 


G 


input grid data 


H 


halt graphics tablet mode 


K 


kill line with closest data point to cross hairs 


L 


ENTER label mode and locate closest label to 




cross hairs 


M 


MOVE identified data point to new position 


N 


input a new data point beginning a new line 


P 


re-plot the current data using same window scale 


Q 


quit label mode 


R 


repeat the current data (but resize it to fill 




screen) 


S 


show real values X and Y at current 




screen position 


T 


Enter graphic tablet mode 


v 


input direct coordinate values for X and Y 


w 


Window data P reploi to new minimum 




and maximum values 



20 



25 



30 



35 



40 



The above coordinate commands, prefixed each respec- 
tively by the number "9", are shown in FIGS. 3E, 3F, 45 
3G, 3H, 3J and 3K and are described m greater detail 
hereinafter with appropriate reference to those figures. 

Referring now to FIG. 3E, block 94 checks to see if 
this is the first point of a new plot; if it is, then control 
is transferred to the appropriate coordinate command 50 
for inputting a new line. The command "A" (99A) 
basically adds a point in storage after a reference point, 
the reference point being set by the command **C" (9C), 
shown in FIG. 3F. Block 95 checks to see if the user had 
set a reference point, a transfer to block 93 indicating a 55 
point not set and an invalid command. Block 96 checks 
to see if the point is within the plot frame on the screen 
14 of display terminal 12. Block 90 plots a character 
indicating the line type at a coordinate position selected 



swapped so that the link list remains the same as in the 
A command mode. 

Referring now to FIG. 3F, the "C" command (9C) 
establishes a reference point by finding the closes coor- 
dinate point per block 104. Blocks 105 and 106 check 
the point and plot a line character symbol if the point is 
within the plot frame. Block 107 moves the linked list 
forward pointer to the next set of coordinate points and 
stores the positions and line number of the reference 
point. The "D" coordinate command (9D), also shown 
in FIG. 3F, deletes a coordinate point and performs the 
same operations in blocks 108, 190 and 110 as the re- 
spective blocks 104, 105 and 106 for "C" command. The 
"D" command differs, however, from the "C" com- 
mand in that in Block 111 the point is deleted from the 
linked list. This is accomplished by moving the forward 
coordinate set, as pointed to by the forward pointer, to 
the deleted point position. The unused data storage 
space is then added to another linked list which is a list 
of unused storage. Block 112 turns off the reference 
pointer flag since the point was just deleted. The "E" or 
exit coordinate command (9E) is executed per block 113 
which terminates the plot, returns to the main program, 
and converts the linked data to serial data and outputs 
the data with all corrections, labels and arrows to the 
file of host computer 10. 

Referring now to FIG. 3G, the "F" or format com- 
mand (9F) can change the line characteristics in terms 
of linear, smooth, symbols only, no symbols, closed 
curve, or shade. The user positions the cross-hair cursor 
20 either to the left or right of the vertical axis of the 
plot. Block 121 checks for this relative position of cur- 
sor 20. If the position is to the left, block 122 is used and 
the line type and curve type are changed for all lines of 
the entire plot. If the cursor position is to the right of the 
vertical axis, block 123 is used and the format change 
only applies to the indicated line. The lines anfl associ- 
ated symbols are listed in a column at the left top of the 
terminal display screen 14. In block 115, the vertical 
coordinate position is used to determine the closest line 
and symbol. The line number is derived from this opera- 
tion. Blocks 116, 117, 118 and 119 check that value and 
keep it within the range of one to the maximum number 
of lines plotted. Block 120 prompts the user for the new 
hne type value and new curve type value. Blocks 121, 
122 and 123, as previously discussed, determine how to 
apply new line type and curve type. 

The "G" command (9G), also shown in FIG. 3G is 
executed via block 124 and is used to change the grid 
format. The user selects the number of major and minor 
tick marks and the frequency of grid lines on both axes. 
Via block 125 the "H" Conunand (9H) is effected. The 
"H" conunand is used to terminate the tablet command 
mode, the tablet mode being analogous to the screen 
mode in the context of the command and coordinate 
entry. The "K" or kill command (9K) is executed via 
block 126 and 127 and is similar to the "D" or delete 



by the user. Block 98, using the linked list storage, adds 60 command except that the "K'* command deletes the 



the new point into the list after the reference point, and 
changes the reference point to the new point just added. 
Coordinate command "B" (9B). also shown in FIG. 3E, 
follows the same logic as the "A" command except as to 
placement of the new point relative to the reference 65 
point. Via block 103, the "B** command puts the point 
before the reference point in storage. The linked list is 
used the same way except the coordinate values are 



entire line. 

Referring now to FIG. 3H, the "L" command (9L) 
enters the label mode via block 128. the label mode 
keys a new set of single key commands which only 
affect labeling of the plot. The initial "L" command 
enters the label mode and uses the coordinate position 
to compute the closest label. The foUowing is a sum- 
mary of label mode commands: 
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dinate command (9N). The coordinate point at the cur- 
sor 20 is identified as the first point of the new curve. In 



COMMAND 


DESCRIPTION 


L 


Identify closest label and plot point showing 




its reference point 


M 


Move identified label to indicated cursor 




position 


S 


Change label size 


D 


Delete label 


Q 


Quit label mode return to coordinate mode 


N 


Add new label at current cursor position 


A 


Add arrow to plot 


P 


Print current identified label 


C 


Copy identified label to new cursor position 


V 


Move label to new vertical position 


H 


Move label to new horizontal position 



LABEL MODE COMMAND SUMMARY ^^^^^^ ^j^^^ p^;„^ automatically Set to the 

new point. 

5 The "P*' plot coordinate command (9P) is executed in 
a series of steps represented by blocks 143-146. The first 
step of the "P" coordinate command, taken in block 
143, is to determine the vertical position of the cross- 
hair cursor 20. If the position is to the right of the verti- 
10 cal axis, then control is transferred to block 65 to FIG. 
3A, causmg the graphics code to replot the data. If the 
cursor 20 is to the left of the vertical axis then further 
checks are performed. In block 144, a check is made to 
see if the line values and symbols have been already 
listed, i.e., in column format, left of vertical axis. Block 
These label mode commands, like the coordinate mode 1*'? lists these line values and symbols if they have not 
commands, are prefixed by the number "II" for desig- been listed and in block 145 the line value of the closest 
nation in the drawing figures and are described herein- line, listed in block 146, to the cursor 20 is determined, 
below. This closest line is toggled to plot in the next "P" com- 

In accordance with the "M" label mode command mand, and gives the user the capability to edit, plot and 
(IIM), the user moves an identified lable to a described correct several lines overlapping on each other by plot- 
position using cursor 20. The user is then prompted for ting each one separately. The "P" command based on 
two more coordinate points. These points are used to position of cursor 20 left of the vertical axis, can be 
compute the slope of the label in block 131. The label is thought of as a pick to live to plot command. In block 
then printed at the indicated position along the new 148 the "R" or restore/reset coordinate command (9R) 
slope. Block 132 represents the "S" label mode com- is initiated. As with the "P" command and block 143, 
mand (IIS) used to change the size of a label. Block 132 the vertical coordinate position of cursor 20 is used to 
also checks to insure that a label has been identified determine the effect of the command. To the left of the 
using the initial "L" conunand. Block 133 executes the vertical axis, the "R" command restores all lines to plot 
"D" label mode command (IID), deleting the previ- visibility. To the right, the "R" command resizes the 
ously identified label. The "N" label mode command pjot to fit the minimum and maximum values contained 
' (UN) executed via block 134 inputs a new label and its ^jthin the coordinate data. In block 150, the "S" or 

- attributes, i.e., justification ^d storage. Block 134 also -ghow" coordinate command is executed, the coordi- 
prompts the user for 2 additional points required for ^ate values being used to compute the actual real units 
slope computation. In block 135^he "A" label mode j^e cross-hair location of cursor 20 and these values 
command (llA) is unplemented. The user positions the ^eing displayed on the screen 14. In block 151, the 
cursor 20 at the arrow tail (non-pointed end) and keys ^^^^^^j transferred, in accordance with the "T" coor- 

- A . Two addmonal pomts are requested giving a bro- ^^^^^ ^^^^^^ (9T), to the graphics tablerusmg a 
ken arrow with the fma^ point as the arrow head ^^^^^ cc^rdinate commands 

Referring now to FIG 31, block 136 affects a "P" or 40 ^^^^^ ^y^^^^ coordinate 

pnnt label command (IIP). In accordance with block , ™/v ™ , . . ., ^ ^, 

- * 1 * J I V 1 • • * J TM.- command (9V). The V command is similar to the 
136, the current located label is re-pnnted. This pro- „ . „ j j • * ^ a * *u j- *i 

vides a means for the user to identify which label is . ^ i f i%T ? J f f 

located when the initial "L" command is sued in clus- »^P^f '^^^m T^^' ° IWchecks for a reference 

tered labels. Block 137 implements the "C" label mode 45 pomt and block 154 prompts the user for one set of 

command (llC), generating a copy of the identified coordmate values. Block 155 prompts the u^r to store 

label and promptly the user for two additional points to ^^^^^^ °^ ^^'^^ reference point. Block 157 resets ^e 

define the slope of the new copied label. The "V" label P^^"^ '^f^?ji''^ .P^""* "^^.I'T^^"^ ^""J^^ 

mode command (IIV) implemented via block 138 is a command. Block 158 initiates the W" or wmdow 

quick label move to the indicated position, with the 50 coordmate command. In this command, the user is 

orientation vertical, reading from the bottom to the top prompted for two sets of coordinate points from which 

on right side. Similarly, block 139 executes the "H" ^ rectangular window is formed and the plot size en- 

habel mode command (IIH), performing an analogous ^^rged to fill screen 14 with data in that window. Block 

label move, with the label set horizontal. Both the "V" 158 gets the first set of coordinate points and block 160 

and "H" label mode commands in blocks 138 and 139 55 checks for closeness of the two sets of coordinate 

are fast versions of the previously described "M" label points. Block 161 uses the two sets and redraws the plot 

mode command (IIM). Block 140 represents the "Q" enlarged on that window. Block 162 is transferred to 

label mode command (HQ) that exits the label mode when the user has not moved the cursor 20 for the 

and returns the user to the coordinate command mode. second set of coordinate points, implying that direct 

Referring now to FIG. 3J, the remainder of the coor- 60 input of window coordinate points is being requested, 

dinate commands are shown. In block 141, the "M" Block 162 performs this request. Block 163 computes 

coordinate command (9M) is executed, moving the minimum and maximum values and transfers to replot 

previously identified coordinate point to a position as the data with the newly specified minimum and maxi- 

indicated by cursor 20. Block 141 also checks to insure mum. 

that a previous point has been identified as the reference 65 Referring now to FIG. 3L, the DRAWIT subroutine 

point via the **C' coordinate command and block 104. is shown. In block 164 the shading storage, a bit map 

Block 142 prompts the user for a new line value as well representation of the entire screen 14 is set to zero i.e., 

as line and curve type in accordance with the "N" coor- no shade. Block 165 determines the line type, curve of 
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linear, and block 166 plots the symbols, if required. position to intersection is crossing a title block. If it is, 
Block 167 determines the line mode, solid or dashed. then block 201 skips drawing and moves to the corn- 
Block 168 begins to plot the curve, determining if sym- puted intersection. Block 202 is used to draw a line to 
bols at each coordinate point are required, and block the intersection when a line is not passing thru title. This 
169 instructs the plotting of the symbols. Via block 170, 5 process is repeated looping back thru to block 198 until 
if the curve type is linear, then a straight line is drawn the end of the current grid line is reached, 
between data points. Data interpolation using the Hiro- Referring now to FIG. 30, the SHADE subroutine is 
shi Akima technique is executed via block 172, using all described. Block 204 checks for the first point of a line 
the pomts on the given line and generating short line segment and block 205 stores it. In succeeding passes 
segments. Block 173 determmes the type of line, i.e., 10 thru SHADE control is transferred to block 206. Block 
dashed, sohd or shaded. Block 174 plots the line as 206 takes two points and examines all columns of points 
dashed usmg one of several different pre-programmed between the X-axis and the line spanning the interval of 
dash sequences. Block 175 unposes the shading on the the points. Within each column beneath this interval 
plot using the following algorithm: in block 164, a bit each possible shade point is checked. If the point is 
I^^fL^^^''^"^^°" °^ ^ initialized (about 15 already shaded, it is unshaded and similarly, a point 

20,000 pomts per plot); as the curve m which shading unshaded is shaded. This process is repeated until the 
was requested is drawn, the pomts in the columns be- line is traversed to its end. Also in HG. 30, the AXIS 
neath the curve are examined; if a point (single bit) is subroutine is shown. Block 211 uses the minimum and 
not already shaded (bit is zero), then it is set to shade maximum values determined from the coordinate data 
(bit set to 1); conversely if the bit is set to shade (bit 20 and generates sealing in a multiple of 1, 2 or 5 units, 
equals 1), then it is reset to no shade (bit equals 0). This Tick marks and numbers required on axis are computed 
algonthm permits any shape defined by a curve, open or and plotted. 

closed to be shaded. Further related discussion is found or- . i-t^ ^« 

hereinafter regarding the subroutine SHADE. Block u^^^^'c2P^'i?i;i? P^G- ^P, subroutme SHADEIT is 
176 determines if the wide solid line is required and 25 ^^^"^^^ J^'^^^^^^^^ 

block 177 plots the wide curve by performing a "hem "^'^^ ^^^^ subroutine shown in FIG. 30. The 
stitch" motion as the curve is drawn. Block 178 simply f^^P^'onis that points within a titie block are omitted 
draws the regular line, single width. Block 179 checks ™™ s^^ading Block 212 setsthe column row position 
to see if any more lines ^e to be drawn, and if not ^!}^ f/^'^ P^^'^^l" f^^^^'' 

returns control to block 77 in FIG. 3B. 30 P°^^^ ^ ^^^^^d block 214 

Referring now to FIG. 3M, the PTITLE subroutine f J^"^^ 'f l^^^^l. If not, block 

(plot titles) is shown. Block 180 gets the size of the title ^J^'^^^^V^^ and block 216 increments the row 

as inputted or changed by the user. Block 181 uses the "^""T!' ^ . ""2"^ ^7"^ 

two slope points also inputted by the user to compute 'f^f ^ I ^ *° ""^^ T^^T* ^^^'^^ 

the tiUe angle. Block 183 eliminates all leading blanks 35 f ^^^n checks for niore columns, and if none are 
from the label. Block 183 begins scanning the title for '^^^"^ ^^.^^^^'^ . 

three consecutive blanks used as a signal to terminate Therefore, it is apparent that the present invention 
this line and begin a new line. Block 184 does the termi- provides an improved process implemented by a corn- 
nation. Likewise, if the scan does not find three consec- puter for generating graphical artwork of aTinished 
utive blanks, then the entire title is assumed on one line. 40 quality ready for photolithographic reproduction. More 
Block 186 checks user input to see if title is centered or particularly, the present invention provides a computer- 
left shifted. Block 189 plots the title and increment to f^^ed process for producing original camera-ready plots 
the next line. Block 190 checks the length of the line and detail without requiring any manual drafting, 

stores the maximum line length. Block 192 checks for FurthermorCj the disclosed invention provides an auto- 
more title lines in the same title and transfers when 45 niated process for creating revised camera-ready graph- 
finished to block 193. Block 193 stores the maximum ical plots that permits custom editing and correcting of 
line length and computes four coordinates around the existing plots quickly and precisely without manually 
title and stores these for later use. FIG. 3N shows the redrawing revisions and affixing them to existing plots, 
flow for the grid drawing subroutine PGRIDY/P- 1^ addition, the disclosed computer-aided process for 
GRIDX. Block 194 deterinines which grid lines are to 50 graphical artwork generation is cost effective, reliable 
be drawn. Block 195 moves into position to begin the ^ performance, easily adapted to existing automated 
grid line on either axis. Block 196 computes all possible graphic art equipment 

intersections of this line with all title boundaries as Obviously, other embodiments and modifications of 
determined in the PTITLE routine of FIG. 3M. False the present invention will readily come to those of ordi- 
crossmgs are eliminated and the sequence of real cross- 55 nary skill in the art having the benefit of the teachings 
ings is stored in the order of crossing. Block 197 initial- presented in the foregoing description and drawings. It 
izes the position and counter while block 198 deter- is therefore to be understood that various changes in the 
mines if the end of the current grid line is reached. details, materials, steps, and arrangement of parts. 
Block 203 checks for more grid lines if the current end which have been described and illustrated to explain the 
is reached. Block 199 computes the next intersection of 60 nature of the invention, may be made by those skilled in 
the grid line with the next title boundary it crosses and the art within the principle and scope of the invention as 
block 200 checks to see if drawing from the current . expressed in the appended claims. 



65 
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CUXlQi 

TICSOOO 

C*" USE ?UU2 PRCC FILE 

PROCRW: UTIGS(IKPUT=l01,OUTPUr.TAFEl = 101,TAPE7»101,T/FE5=INPUr) TIGS0003 
C «i*ft«i««««ttftci»tft«fti*«i«s««fr««iictft< TICSCOOil 
C«««« T2CS0005 
C»««« ULTRA TIGS TPLOT IKTEFACTICE GRAPHICS SySTEK 

C«»i« TIGS0007 
C"«« K CADDY REVISED SEP £2 

CW:f.CK/ITITLE/ITT(50) . JTT(50) ,KTT(EO) .LTTCSO) .KTT(50) ♦STT(50) , 

1 XTT(50),YTT(50),>UU(50).YUU(50).XVV(50),yVV(50),lTC(8,50).mTE 

2 ,A»:lK,Ayh:lK,AXKAX,AlfMAX,IXDEK.IYDEK,IGRIDX.2GRIDY,ITKX,ITKy, 
2 2CPJiR,IV;iK 

MKEKSIOK LT(7) .XV(50) , WPrS(50) ,X( 1000) .Y( 1000) ,2(50) , A(200) 
DIKELSIOK IRAT£(i») 

DATA RRCT/0/ TIGSOOlO 
DATA KPTS,XV/50«0.50«0./ T1GS0015 
DATA IEHD/10KEOT / TICSOOI^ 

DATA IRATE/ 120,^^10, 1180, 960/ 
10 F0RKAT(A5,7A10) T1GS0015 
REWIND 1 TIGS0016 
RaiND 7 TIGS0017 
PRIKT «,"UTICS VER 1.0 02-06-83 DEFAULT IS 9600 EAUD" 
PRINT *."AKD KAXI^IUH DECIKALS CH TAFE7 OUTPUT" 
PRIKT «. "ENTER C R> TC CKAKGE OR R> TO CCKTINUE" 
IBR=960 
IDFLT=t 
READ 30,I£Z 

IF{EGF(5).NE.0.)GC TO 29 

IDFLTsO 

PRIKT 21 

21 F0RMAT(« EKTER BAUD RATE CODE *,/, 
1 « 1s1200i 2r2il00, 3=*»800, ll=9£00«) 
CALL GETIN(1,Z(1)) 
lERrZ 

IBR=r:AX0(1,KIK0(IER,4)) 
IER=IRATE(IER) 

C«««* 

C««f« FILE IS NOT EEIKG CREATED READ IT FRCK TAPEl 

29 ICsO 

30 FORKAT(IRI) ^ 

31 READ (1,10) LKO,LT 
IF{EGF(1).EQ.0.)GO TO 32 
ICrl 

PRIKT «,"CfiEATICK MODE« 
GO TO UO 

JF(LKC,.U-.WH ) GC .^10 25*1 

C*««« ' TIGS0Q25 
C««»> CALL IK 2 VALUES TIGS0029 

C«*«« TIGS0030 

' CALL TABR(L2,L,KT,K2,2,1) 
C*««« TICS0032 
C»««* HEAD IK y,X,FXY2 DATA FOR KOK CREATICK RUK TIGS0033 

C"«« ' TICS0031 

CAa TAER(LY,L,KT,KY,A,1) 

CAU TAER(LX,L,KT,K,X,1) 
C»«* SAVE STORAGE LCCATICK CF UST X VALUE 

JXSsO 



TIGS0C21I 
TIGS0025 
TIGS0026 



TIGS0027 
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CAU TAER(LF,Lj;T,K,y,1) 
KTT(1)=KT 
LTT(1)8L 
GO -TC 100 
^0 PRINT 50 

50 FORMAT(« ENTER TABLE TITLE CARDV. 

1 «. (COLLKN'S 1-5 SHOULt EE THE TAELE REFERENCE KUKEER)») 
READ lO.LKC.LT 

C«»»« 

C*»«*« READ TAELE WUKEER AND TITLE 

PRINT CO 

60 FORKAT{» ENTER H CHARACTERS FOR EACK LAEEL FOR 2,lf,X,FXY2«/ 
1 « (SEPARATED BY CCKKAS)«) 

C«««« READ TITLES FOR EACH VARIABLE U CHARACTERS LONG 

READ 70,U,LY,LX,LF 
70 F0RHAT(i|(Al|.1X)) 

C«"« GET NUMBER CF 2 VARIABLES AND VALUES 

C«*»« ♦ 

PRINT C0,U 

60 FOR«AT(« ENTER KUKEER CF •.Ai*.* VARIAELES FREE FCR^;«> 

CAU GETIN(UZ) 
N2r2M) 
PRINT 90, U 

SO FORKAT(« ENTER «,Ai|,* VALUES .ASCENDING ORDER— FREE FCEK«) 
CALL GETIN(K2,2) 

C»««« 

C«««« WRITE TO TAPE? TITLE CARD AKD TAEU NUMBER 

C**«* 

100 WRITE(7, 10) LNC.LT 
lOPTDsO 

IFdDFLT.EC.DGC TC 99 
PRINT 101 

101.J.CRKAT;*^:;mj.J<;:..5ii J^LACES CK ,TAF£7-?*) 

READ iO.ICPTD 
59 DO ^02 ISETsl.ii 
102 XV(ISET)sO. 

IF(ICPTD.NE.21B)CG TC 115 
PRINT in.L2.LY,LX.lF 
110 FOKKAT(« ENTER KUKEER CF DECIKJIL RACES FCR «.*I(A*I.1» 
1 ,« FREE FORK*) 

lllll GET NUKBER OF DECIKAL PUCES FCR EACH VARIABLE 

CALL GETIN(il.XV) 
115 L2DP=XV(1) 
LyDPsXV(2) 
LXDPsXVO) 
LFDPsXV(il) 

C«««« WRITE TO TAPE7 THE 2 VALUES ETC... 

CALL TFCRK(1.U,NZ. 0.0,2, UDP. 7) 

C«*»« INIALI2E TEK SCFTl.'ARE 

CALL IKITT(IDR) 
CALL TERH(3,'»09e) 
CALL CHRSI2(i|} 



TIGS0038 

TIGS003S 

TIGS0040 

TIGSOOi;! 

TIGS00it2 

TIGS00*I3 

TIGS 0044 

TIGS0045 

TIGS0046 

TIGSOOH? 

TICS 004 8 

TICS0049 

TIGS0050 

TICS0051 

TIGS0052 

TIGS0052 

TIGS0054 

TIGS0055 

TIGS0056 

TIGS0057 

TIGS0058 

TIGS0059 

TIGSOOeo 

TIGS0061 - 

TIGS0062 

TIGS0063 

TIGS006ii 

TIGSOOas 

TIGS00C6 

TIGS 0067 



TICS0CC8 
TICS0CC9 
TICS0070 
TIOS0071 
TIGS0072 
TIGS0073 
TICS0074 
TICS 0075 
TIGS0076 
TICS0077 
TIGS0078 
TIGS0079 
TIGSOOEO 
TIGS0061 

TIGS00E2 
TIGS0084 
TICS00E5 
TIGS006S 
TIGS 0087 
TIGS0089 
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16 



IF CHEATICK KCDE TKEK SET DEFAULTS TO 0 



NOK CREATION KCDE 



READ NEXT SET 



IFdC.KE-l) GO TO 120 
KPTS(1)=0' 
X(1)=0. 

y(i)=o. 

GO TO 210 

120 CONTINUE 
C«««« 

C«ic« TRANSFER SECCKD IliDEPEKDENT VARIAELE TC XV ARRAY 

C«««« 

DC 129 J=l,50 
129 XV(J)=0. 
* DO 130 Jsl.KY 

LNXsK 
LNYsK 
KPTS(1)=K 
KPTS(2)»0 

IFdZ.EC.I) GO TO 150 

LNXsO 

LMYsO 

KcO 

150 READ (1.168) LABI.ITI.JTI.KTI. (Ad) ,1=1.7) 
lee FORHATCAii, 311. 3X.7F10.il) 

IF(LAEI.EC.I*H....)GC TC 1E9 

IF(LABI.HE.iiH...C) GO TO 187 

READ { 1 . • ) IXDEK . lYDEK . in:X. IT>: Y. IGRIDY . ICRIDX , AXf'JK . A YK IN , 
lAXKAX.AYKAX 

IVINsI 

GO TC 150 
la? BACKSPACE 01 

GO TC 119 
185 KTITE=NTITE+1 

IF(KTITE.LE.50)GC TC 500 

CALL ANKCDE 

PRIKT «."V;ARNIKG 50 LABEL KAX HAS BEEN EXCEEDED UTICS ABCRTED" 
STOP 

500 READ (1.191) (ITC(I,NTITE),1=1 .8) 
191 FORKAT(8A10) 
C»*** 

C*««* ITTs FUG =1 TITLE NOT CENTERED =0 TITLE IS CENTERED 

Ci«ii jTTs UNITS FUG =1 USE REAL UNITS =0 USE SCREEN UNITS 

C»««« KTTb fug KTTsI TITLE IS AK ARROW 

C«»»» THE NEXT € INPUTS ^'RE 3 PSIRS OF COORDINATES 

C»»«» THE FIRST = X.Y CENTERED PAIR 

C«»«« THE SECOND IS A VECTOR USED FCR THE SLOPE 

C«»«« THE THIRD IS ONLY USED FCR THE ARRCV.' 

C»*»« IF ARRCV THE SECOND IS USED AS THE SECOND (KNEE) POINT 
C«»«« OF THE ARRCV. 
ITT(NTITE)=ITI 



TIGS00E9 

TIGSOOSO 
TIGSOOSl 
TIGS00S2 
TICS0093 
TIGSOOS^t 
TIGS0095 
TICS0056 
TIGS 0057 
TIGS0099 
TIGS0099 
TIGS0100 
TICSOlOl 
TIGS0102 
TIGS0103 
TIGS010V 
TICS0105 



TICS 01 06 
TIGS 01 07 
TIGSOni 
TIGS0n2 
TIGS0112 
TIGSOIli* 



T1GS0115 
TICS0116 
TIGS0n7 
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jrT(KTITE)=JT3 
KTT{KTITE)sKTI 
STT(KTITE)sA(l) 
XrT(KTITE)cA(2) 
.yTT(KTITE)=A(3) 
XUU(NTITE)s:A(i|) 
yUU(NTITE)=A{5) 
XVV(HTITE)=A(6) 
yyV.(KTIT&isJl(.7) 
TC 150 

l^S CALL TAER(LW.L,KT,K,A,1) 

C»<»« CHECK FOR KEXT 2 GROUP 

€*•■* 

1F(LW,K£.LY) GO TC 151 

CO TC 210 

€«■«• CHECK FOR EKD OF TAELE 

C«*** 

151 lF(LW.EC.^HEOr ) GC TO 210 
C"«« CHECK FOR KEXT X DATA • 

IF(LV.NE*LX) GO TO 170 

CB«« 

DATA IS X DATA STORE IT 

Cftsift 

JXSsLKX 
DO 160 J*1,K 
LKXsLKX-fl 
160 X(LKX):rA(J} 
GC TC 150 

C«*«« DATA HAD LETTER BE LY 

Cit## 

• 170 IF(LW.NE.LF) STOP 
C***« 

C"*» IF DATA KAS KOT EE INPUT FOR X DATA USE UST VALUES 

C«««t 

IFCLWX.CT.LKY) CO TP 190 
^LJSsJXS 
DC 160 J=1,K 
LKXsLNX^I 
LJSsLJS^I 

i£o x(LKy)sxajs) 

C»«»« 

C«««« UPDATE CCUKTERS 

c*»«« 

190 KsK^I 

KPTS(K)=H 
KPTS{K4l)s0 

C«««* 

C*«*« LOAD y DATA 

C«««* 

.C««« CHECK :FCR £0 LIKE LIKIT 
C*««« 

1F(K*KE.1I9) GC TC 202 
CALL AKftODE 

PRINT «,"KUKEER CF LINES EXCEED Hg UTIGS ABORTED" 
STOP 



Ticson? 

TIGSOl^O 
TICS0121 
TICS0122 



TICS0123 
TIGS012it 
TIGS0125 
TICS0126 
TICS0127 
TICS012e 
TIGS0129 
TICS0130 
TICS0131 
TICS0132 
TICS0133 

TIGS0135 
TIGS 01 36 
TICS01B7 
TIGS0138 
TICS0139 
TICS0140 
TIGS0141 
TIGS0142 
TICS0K3 
TIGSOlil^i 
TIGS01'»5 
TIGSOIHd 

TIGSOIild 
TICS01ii9 

TICS0151 
TICS0152 
TICSOISa 
TICSC15* 
TICSC155 
TIGSOlSe 
TICS0157 
TIGS0158 

TICS0159 
tlGS0160 
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202 IF(m*N.LE.1000) CO TO 199 
CALL A'KKCDE 

PRIKT •.•KUKEER OF POINTS EXCEED 1000 LIKIT UTICS ABORTED" 
STOP 

199 DO 200 Jsl.K TICS0161 
LKYsLKY-^l TICS0U2 

200 y(LNY>sA(J) TIGSOieS 

ktt(km;t 

LTT.(K)=L ^ 
C«««t TIGS0l6it 

C««*t GO BACK TO GET KEXT GROUP TIGS01C5 

cftitti TiGsoiee 

GO TO 150 TIGS0U7 

C«ftftt TIGSOUe 

C«ft«ft PLOT DATA TIGS0169 

C««»# TICS0170 
210 IGRIDsL 

CAU TIGPPR(KPL0T,LF,l,LX.1,LT.7,X,Y.KPTS,Ly,l,XV.LYDP,ITIP, TIGS0171 

1 IGRID.U.ZCIZ)) TICS0172' 

CALL AfJKCDE TIGS0173 

C««»« TIGSOI?^ 

C«««« COUNT KUHBER OF Y VALUES T1GS0175 

C«»«» TIGS0176 

jy=0 TIGS0177 

DO 220 Ir1,50 T1CS017E 

IFCMPTS(I).EC.O) GO TO 230 TIGS0179 

JYsjy+1 TlCSOIfiO 

220 CONTINUE TICSOlEl 

GO TO 250* TIGS01E2 

C»««« TIGSOieS 

C»»«« WRITE TC TAPE? Y DATA ETC,... TlCSOIfit 

C*«*« TIGSOieS 
220 CALL TFORM(1,LY,JY.0.0,XV,LYDP.7) 

LCCrl TICSOU'7 

jsO TICST)ie8 

2il0 J=J4l TIGS01E9 

KP=NPTS(J) TIGS0190 

IFCIiP.EC.O) GO TC 250 TIGS0191 

C««»* TIGS0192 

C«««# VEITE TC TAPE? X DATA ETC... TIGS0193 

C»»" TIGS019^ 

CALL TFCRK(LCC,LX,KP,0,0,X.LXDP,7) 

C«»*» TIGS0196 

CWJs /.KKTE <IC U PZ? y ^DATA ETC . . . TICS01 S? 

C»««« TICS015& 

CALL TFCRK(LCC.LF,NP,LTT(J),Kn(J).y,LFDF,7) 

LOCsLCC-fKP TICS0200 
GC TC 2^0 . TIGS0201 
'250 COtTIKtE . TICS0202 

WRITE (7 1£E)4H..«C 

VFJTE(7!«)IXDEN!iYDEK,IT>:X,ITKY.IGRIDY,ICRIDX,AXMIK,AYMIK, 

iax>:ax,aykax 

C««« CHECK FOR TITLES IN FILE 
IF(NTITE.LT.I) CO TC 310 
LAEI&HN.... 
DC 300 Irl.KTITE 

WRITE(7.18E)UBI,ITT(I),JTT(I).KTT(I),STT(I),XTT(I),YTT(I),XUU{I). 
1 YUU(I},XVV(I).YVV(I) 
300 V;RITE(7.191) (ITC(J,I).J=1,6) 

310 WRITE (7,10) lEND. TICS0203 
C«*«« IF KOK CKEATIOi; MODE THEN GC EACK TO READ NEXT TITLE 
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C«.. 21 22 

IF(IC.KE.I) CC TC 31 
251 KRITE (7,10) 
REWIND 7 
END * 

CTFORH 

TFOROOOl 

SUEROUTIKE TFCRK (LCC . UE . K , L, l>i , X. 3PI , K ) 
DIKEKSIC^ X(l),IFCRH(il) 

FORfiATTING SUBROUTINE FCR TPLCT FORMAT 
LCC IS TKE LOCAL ARRAY POSITION TO PRINT FROM 
UB IS THE i* CHARACTER UEEL 
K IS THE NUMBER TO PRINT 
X IS Tra ARRAY CCKTAINING THE VALUES 
IP IS -THE NUMBER OF-DECIfyiL PUCES TO USE IN FORMAT . 
IF IPsO THEN MAXIMUM NUMBER OF DECIMAL PLACES WILL RESULT 

iPsIPI 

IFdP.NE.OGO TC 20 
XMAXsO. 

IF(K.LE.1)CC TO 20 
DO 10 I=UN 

IF(X(I).EC.0.)CO TO 10 
XC=ALCG10(ABS(X(I))) 
IF(XC.GT.Xf:AX> XfUlXsXC 
10 CONTINUE 

IPs7-IFIXCXfyiX) 
20 IFdP.LT^O) IPsO 
IF(IP.CT.7) IPs7 

JOrLOC-1 

IF0RH(3)=2il3^3^56ii20e3^35573^D+IP 
IFCRM(JI|)=10H)) 
. IF((L4LM).EC.0)GC TO 30 
IF0RH(2) = 10Hn,I2,( 

WRITE(K,IFCRM) LAE.N^L.U:. (X(I+JO) ,I=KN) 
RETURN. 

30 IFCRK(2)s10H 3X,( 

V.RITE(K,IFCRM) LAE,H. (X(I+J0),.I=1 .N) 
RETURN 
END 



CTAER 

SUBROUTINE TABR(LAE,L,KT,N,A.K) 
DIMENSION A(1) 

READ(K.IO) LAB,N.L,MT.(A(1),J=1.7) 
10 FORKAT(Ai|,I3,Il,I2.7F10.0) 

IF(N.GT.7) READ(K.20) (A(I),I=8,N) 
20 FCRMAT{10X.7F10.0) 

RETURN 

END 

CTIGP 



TAER0001 



TICP0001 



TEK INTERACTIVE CPPR H CADDY FEE 78 



SUBROUTINE TIGPPR(NPL0T.UEY,N1,LAEX,N2,LAETL,NT ,X,Y. 
1 NPTA,UBVAL;NCC,VLAEL,KDECVIN,ITIP,IGRID.LZ,2VAL) 
COKMON/ITITLE/ITT(50),jrT(50),KTT(50).Ln(50).MTT(50),STT(50), 

1 XTT(50) . YTTCSO) .XUU(50) . YUU<50) •XVVCSO) .yVV(50) . rrc(8 ,50) . KTITE 

2 .A»tIN,Ay):lN,AXMAX,AYflAX.IXDEN,IYDEN.lCRIDX,IGRIDY.ITT:X.mY. 

3 ICHAR.IWIN • • • 

CaiKON/TKTRN X/I TEKC ( 6 0 ) 



TIGS0204 
TIGS02a5 
TIGS0206 



TFOROOO3 
TFCROOOH 
TF0R0005 
TFCR0006 
TFOR0007 
TFCROOOE 
TFCROOOO 



TFCROOlO 
TFCKOOtl 
TF0R0012 

TFCR0016 



TFOR0021 
TFOR0022 



TICP0002 
TICPOOO3 
TIGPOOO^ 
TIGP0005 
TICP0006 



TICP0009 
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DIMDJSIOK X(200),y(200),UETL(7).KPTA(50),VLAEL(50). 
1 LAEX(5).LAEy(5)^VTEK(8).LABVAL(e),ICUICK(30).ISUB(1000),KSG7(29) 

DIMENSION HSGU20) ,MSG2(22) ,KSGii( 1 0) .K^G5( 10) ,MSG6( 15) , IALTW(6, 2) 

DIKENSIOK IPP)C(^,50),IPPY(M,50).)CDUK(2) TIGPOOl 

ECUIVALENCE (EEG( 1 ) ,XEEG) , (BEG(2) .YEEG) 

EC^ I VALENCE (DEL ( 1 ) . DELX ) . ( DEL (2 ) , DaY ) . ( ITAE . LTV (2 ) ) 

ECUIVALENCE (EN( 1 ) ,XEND) , (EK(2) . YEND) 

ECUIVALENCE (lOFF , ITEKC( 30) ) . ( TXMIK , ITEKC( 1 ) ) 
C SET LINE SPACING 

CCKKOK/TEKGPPR/LDEL,LCKT,KAXSR.LTV( 17 ), EN (2) . DEL (2) ,EEG(2) , RDX2. 
1 FDI 2 , NLINE , KDR AW ( 5 0 ) 

DATA MSG1/ie,il6, 80, 11 1.105. 110, 116.101,11^.32, 
1 £0. 1 1 1. 115. 105,1 16, 105t 11 1.110, 101,100/ 

DATA KSG2/73, 110, 112. 117. 116,32.76, 105.110. 101, 
1 32.86,97, 10£. 117, 101, HI*. 76, £*i.^^. 77,8^/ 

C»»«* ILLEGAL MESSAGE 

DAT/ i:SCil/il2.7;. 106, lot. 101, 103.97. 108,^2,32/ 

DATA KSG5/73. 110, 112. 117. 116. 32. 68.^^1,89, 32/ 

DATA HSGC/65 , 32, 1 1 1 • 1 1*1 , 32, 66 , 32, 109 . 1 1 1 . 100, 
1 101.63.32.32,52/ 

DATA KSG7/6g,78.£^.6S.£2,32.87.73.7e.68.79t87.13.10. 
1 68, 72;65, 71, 79. 78, 65, 76, 32,80, 79. 73.78, 8*1. 83/ 

DATA ((lALT>i(I,J).I=1.6),J=l,2)/65, 102,1l6,101,11*i,32, 
1 66,101,102,111,11*1.101/ 

DATA ICUICK/0,0, 1,1,2,2. 10,**. 6.0, 

1 11.12,0.5.0.6.0,7.8,0. 

2 0,0,9.0.0,0,0,0,0,0/ 
IXTOS (X ) = ( ( X-BEC ( 1 ) ) /DEL X+6 00 ) 
lYTCS ( Y )c ( ( Y-BEC (2 ) ) /DELy+300 ) 
LDEL=50 

ICHABrO 

IFdVIN.EQ.DCC TO 5 
' ICRIDX=IGRID 
ICRIDYsIGRID 
C««»« DEFAULT AXIS 
IXDEN=6 
IYDEN=8 
ITKXsO 
ITKYsO 

5 IF(KPLCT,GT.O) GC TO 20 

DO 10 1=1,8 
10 LTV(I)=:0 
C»«20 IWINrO 

20 NPL0T=NPL0T+1 
KLASTsO 
NTLrNT 
NLINErO 
30 KSTORsO 

C SET STORAGE POINTER TO INITIAL SEQUENCE 

DO *»0 Is 1,999 
*iO ISUE(I)=U1 



C 
C 
C 



MERGE HERE TO REPLOT 

50 CALL SWCPJlR(l) 
LCNT=3120 

SUM UP NUMBER OF POINTS 

NL=0 
NPTOTzO 
DC 60 1=1.50 
KsNPTAd) 
. IF(N.EC.O) CO TO 70 



TIGPOOlO 
TIGPOOl 1 
TIGP0012 

TIGPOOl *; 
TIGP0015 
TIGPOOl 6 
TIGP0017 
TIGP0018 
TIGPOOl S 
TIGP0020 

TIGP0021 
TIGP0022 
TIGP002: 
TIGP002*; 
TIGP0025 
TIGP0026 

TIGP0027 
TIGP0028 
TICP0029 
TIGPOOJO 
TIGP0021 
TIGP0032 
TIGP0033 
TIGP003i» 
TIGP0035 
TIGP0036 
TICP0037 
TICP0038 
TIGP0039 
TIGP00*IO 

TIGP00*I1 
TIGP00*i2 

TIGP0101 
TIGP0102 



TIGP00*i3 
TIGPOO*l*< 
TIGP00*;5 
TIGP00**6 
TIGP00*i7 

TIGP00*i8 
TICP00*t9 
TIGP0050 
TIGP0051 
TIGP0052 
TIGP0053 
TIGP005** 
TIGP0055 
TIGP0056 
TIGP0057 
TICP0059 
TIGP0060 
TIGP0061 
TIGP0062 
TIGP0063 
TIGP006*l 
TIGP0065 
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NL=KL+1 
,£0:JJJ>.TOT»HP.TCT^K 

SET STORAGE LIKIT TC KPTOT FIRST PASS 
70 IF(KSTOh,EC.O) KSTORrKPTCT 

IF(NPTOT.CT.0)CO TO 90 
NSTCRsO 

CALL MOVAES(0,LCNT) 
CALL AKNODE 
PRINT £0 

80 FCRKAT(« KG DATA FOUND TC PLOT ..EKTER COKMAKD*) 

LCKTsLCNT-LDEL 

IPLOTsO 

CO TO 280 
90 CONTINUE 

IDENrO 

PREPARE TEKTRONIX AGII CCfiMCN 



IPL0T=IPLCT+1 
CALL CHRSI2(2) 
IF(ICHAR.NE.O) GO TO 120 
CALL ANKODE 
PRINT 110,UBTL 
110 FORMAT(» NEXT PLOT IS *,/.9A10) 

IF(IWIN.NE.O)PRIKT «."GRIDA1ND0V; IS SET " 
1 . IXDEN, lYDEN . ITKX. ITHY, IGRIDY , IGRIDX, AXMIN , AYKIN , 
2 AXKAX.AYKAX 
LCKT=LCNT-LDEL»3 

C*««« 

c 

C IF FIRST TIKE AROUND.. GET COMMAND FIRST TO PLOT 

C 

C SET SCREEN WINDOW SIZE 

120 CALL SWINDO(600, 3360, 300, 2^100) 
IFdWIN.EQ.O) GO TO 125 

C»««« THIS SETS KLAST PARAMETER IF NOT SET 
IF(KLAST.NE,0)GO TO l^iO 
Kri 

DO 121 1=1, KPTOT 
KUSTsK 

121 K=ISUfi(K) 
GO TC IHO 

125 AXMAX=-KE99 
AYMAX=-1.E99 
AXh:iNr+l.E99 
AYHINS+1.E99 
C SET KIN AND MAX DATA VALUES 

Ksl 

DC 130 Isl.NPTOT 
AXM IK sAK IN 1 ( AXfJIN . X (K ) ) 
-AYMIN=AKIN'1(AYKIN.Y(K)i 
AXKAXrAUXI (/.XHA> ,X(K ) ) 
AYh:AXsAMA)C 1 C AYMAX, Y(K ) ) 
KLASTsK 

C ' SET KLAST TC EKD STCRAGE VALUE 

' 130 K=ISUE(K) 

IWINrI 

1^*0 IF(AXh;iK.NL.AXMAX) CO TC 150 
AXMIfc=AXi:lN..5 

a»:ax5AXkax>.5 

150 IF(An:lH.NE.AYKAX) GO TO 160 
AYf;iNt:AYKIK..5 
AYMAXsAYKAX+.S 



TIGP0066 
TIGPe067 
TICP0068 

TICP0069 
TIGP0070 
TIGP0071 
TIGP0072 
TIGP0073 
TIGP007i^ 
TIGP0075 
TIGP0a76 
TICP0077 
TIGP0078 
TIGP0083 
TIGP0085 
TIGP0086 
TIGP0087 
TIGPOOeg 
TIGP0093 
TIGPOOc^ 
TIGP0095 
TIGP0096 
TIGP0097 



TIGP0096 
TIGP0099 
TIGP0103 
TIGPOIOil 
TIGP0105 
TIGP0106 

TIGP0110 



TIGP0111 
TIGP0n2 
TIGPOnS 
TIGPOl li| 
TIGP0n5 
TIGPOl 16 
TIGPOl 17 
TIGPOne 
TIGPOl 19 
TIGP0120 
TIGP0121 
TIGPOl 22 
TIGPOl 23 
TIGPOUii 
TICP0125 
TIGP0126 
TIGP0127 
TIGPOl 26 
TIGP0129 
TIGPOl 30 
TICPOI3I 
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c 
c 
c 



ICO CCKTIKUE 

XDU>:{2)sAXKAX 
AXLrlXDEN 

CALL AXSCALE(XDUK,AXL,2,XBEG,DELXX,C) 
XEKDsXBEG^AXL'DELXX 
XDUM(l)rAYKIK 
XDUH(2)=AmX 
AXLsiyDEK 

C ALL AXSCALE ( XDUK , AXL . 2 , YEEG . DELY Y . 0 ) 
yEKD=YEEG+AXL*DELYy 

FIND VIRTUAL SPACE TO SCREEN SPACE SCALING PARAMETERS 

PEU=(XEKD-XEEC)/3360. 
DELYr (YEND-yBEG)/2il00. 
RDX2rU/(DaX«DELX) 
RDY2=K/(DELy«DELY) 
C SET VIRTUAL WINDOW 

CALL DWIKDO(XBEG,XEND,YBEC.YEND) 

IF(ICHAR.£C.O)GO TO 260 

CALL DRAWIT ( KL , NPTA . X, Y , ISUE , KTT , LTT ) 

CALL CHRSIZ(4) 

IF(IXDEK,LE.0)GO TO 172 

CALL AXIS 

1(600.300, 3360,2^100, IXDEK.O.XBEG.DELXX, EX, 1.1,ITKX,0,. 15) 
172 IF(IYDEK.LE.0)GO TO 17^ 
CALL AXIS 

1(600, 300, 3360,2400, IYDEN,1,yEEC,DELYY, EX. 1,1,ITKY,0,. 15) 
174 CALL SVCKARd) 

ICH=KIN(,15«.£73) 

ICVs:KC»ICH 

CALL PLCHARdCH.ICV) 

IF(IXDEK«IYDEK.EC,0)GO TO 190 

CALL PTITE(2260, 3000, NT, LAETL, 0, 50, 0. , IPPX; IPPY) 
.^JFCliJITE.GI.I) .GC5C ABO 

CALL PTITE (300, 1500, K \ , LAEY, 0, 50, 90. , IPPX , IPPY) 
leo IF(NTITE.CE.l) CO TC ISO 

CALL PTITE(2280, 100, K2,UEX,0,20,0., IPPX, IPPY) 
190 IF(NTITE.EC.0)GO TC 250 
DO 240 II=1.KTITE 
IF(KTT(II).EC.O)GC TO 210 
C»*«« ARROW CODE 
C«« 

IA1=IXT0S(XUU(II)) 
IA2=IYT0S(YUU{II)) 
IB1=IXT0S(XVV(II)) 
IE2=IYTCS(YVV(li)) 
CALL KOVEA(XTT(II),YTT(II)) 
CALL DARRCV(IA1,IA2,IE1,IE2) 
DO 200 JJ=1,4 
IPPX(JJ. II )= 1000000000 
200 IPPY(JJ, II )= 1000000000 
GO TC 240 

210 DAKGX=(XVV(II)-XUU(II))«SCRT(RDX2) 
DANGY= ( YVV (II )-YUU (II) ) «SQRT( RDY2) 
ANGrO. 

IF(DAKCY.EC.O..AND.DAKGX.EC.O.) GO TO 211 

AHG=:ATAK2(DAKGY,DAKGX)*57. 2957795 
C«»»« DEFAULT SIZE TC EE .15 IF NEGATIVE OR ZERO 
• 211 IF(STT(II).LE.0.)SrT(II)=.15 

ICH=KIN(STT(II)«.e73) 

ICVrICH»1.e 



TIGP0158 
TIGP0159 
TIGPOieO 
TIGP0156 
TIGP0157 
TIGP0161 
TIGP0162 
TIGP0132 

TIGP0164 
TIGP0169 
TIGP0168 



TIGP0170 

TIGP0172 
TIGP0173 

TIGP0174 
TIGP0175 
TIGPC-176> 
TICP0177 
TIGP017E 
TICP0179 
TIGPOIEO 
TICPOlEl 
TICP01E2 
TICP0183 
TIGP0184 

TIGPOieS 
TIGP0186 
TIGP01E7 
TIGPOiee 
TIGPOieS 
TIGP0190 
TIGP0191 
TIGP0192 
TIGP0193 



TIGP0195 
TIGP019& 

TIGP019ff 
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c 
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c 
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29 30 

IF(ITT(II).EC.1)GG TC 220 

IXrlXTOSCXTTdD) 

lYsIYTCSCYTTdl)) 

GO TC 230 
220 IXsXTTdl) 

nrYTTdM 
230 CALL PLCHARdCH.ICV) 

ICsJTTdl) 

lAsKTT(II) 

CALL PTITE dX , n , 8 . ITC( 1 , II ) , IC , iiO , ANG . IPPX (1,11), IPPY (1,11)) 
2^*0 CONTINUE 

CALL LlfiRCKO.) 
250 NYW=IYDEN 

NXMrlXDEK 

CALL SHADEITdPPX.IPPY,KTITE) 
IF(IGRIDX.EC,0)GC TC 260 

CALL PGRIDXdPPX.IPPY.KTITE.NXM.KYK, lOOO.IGRIDX) 
260 IF<IGRIDY.EC.0)GO TO 270 

CALL PGRIOydPPX,IPPY,KTITE,NXM,KYK, lOOO.IGRIDY) 

,K*£RGE.,,{;5F»E J^CR :lKIEii/iCTI.VE,*FUi:CTIC*iS (EELL) 

270 CONTINUE 

280 CALL SWCHAR(Q} 

CAa CKRSIZ(li) 

IKILLrO 

IF(LCNT.LT.220) G© TO 710 
IF(NPTOT.EC.l) GO TO 220 
CALL GETVAL(ICHAR,XO.YO) 
290 IF(ICHAR.LE.eii.Cfi.ICHAK.GE.95)GO TC 300 
IChARsICHAR-6i| 
ICHECK=IQUICK(ICKAR) 
IFCICHECK.EC.O) CO TO 3O0 

GO TO (390. 500,5^0, 280,590,610,720. 7^10, 770, 570. 800, 790). ICKECK 
300 LCKTsiCNT-LDEL 

CALL NOTATE(0,LCNT,10,KSCll) 
GO TO 280 

ADD POINT AFTER CR BEFORE SPECIFIED POINT (A OR B) 



CHECK IF C CCHKAKD AND FIRST POINT. 

210 IF(NPTOT.EC.0)GO TO 590 
320 LCNTrLCNT-LDEL 

CAa NOTATE(O.LCKT,20,MSC1) 
330 CALL GETVALdCHAR.XO.YO) 
C CHECK FOR KEV LIKE CCMMAND 

IF(ICHAR.EC,e6) GC TC 760 
C CHECK FOR ADD AFTER 

3«0 IF(ICHAR.EC.65) GO TO 350 
C CHECK FCR KOVE 

IFdCHAR,EC.77) GO TO 350 
C IF NOT A B OR H GO TO NEW COKKAND 

.IF(ICHAR;KE.66) .GO TO 290 
350 CALL POINTA(XO.yO) 
CALL MCVEA(X0,Y0) 
IF(IOFF.E0.0)CALL ArXHCCIS) 
IF(ICHAR.EC.77) CO TC 370 
C»»« CHECK FOR STORAGE EXCEEDING 260 WARNING LIMIT 
C INCREMENT STORAGE COUNTER 

C NPTOTsNPTCT+1 
C INCREMENT STORAGE COUNTER 



TIGP0199 
TIGP0200 
TIGP0201 
T1GP0202 
TIGP0203 
TIGP020il 
TIGP0205 
TIGP0206 
TIGP0207 
TIGP0208 
TIGP0209 
TIGP0210 



TIGP0211 



TIGP0217 
TIGP0218 
TIGP0219 
TIGP0£20 

TIGP0221 
TIGP0222 
TIGP0223 
TIGP022ii 
TICP0225 
TIGP0226 
TIGP0227 
TIGP0228 
TIGP0229 
riGPJ)230 
TIGP0231 
TIGP0232 
tIGP0233 
TIGP0231 
TIGP0235 
TIGP0236 
TIGP0237 
TIGP0238 
TIGP0239 
TIGP02il0 
TIGP02fll 
TIGP0242 
TIGP02il3 
TIGP0241I 
TIGP0215 
TIGP02iJ6 
TIGP0217 
TIGP02il8 
TIGP021I9 
TICP0250 
TIGP0251 
TIGP0252 
TICP0253 
TICP0251 
TIGP0255 
TIGP0256 
TIGP0257 
T1GP0258 
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C NSTORsNSTOR^'l 

C««» NEW UST LINKED DATA SRORAGE 

C*«* NSTOH = LAST USED CELL 

C«»i NPTOT s NUMBER OF ACTUAL POINTS 

ISTORrlSUB(KLAST) 

ISUE(KLAST)=ISUB(ISTOR) 

IF ( JSAVE • EC J:US T )KLA£I= ISJQE 

NSTCR=NST0R4l 

NPTCTsNPTOT+1 

NPTA( ISA YE )=NPTA( ISA VE )-H 1 
C " HOVE POINTER OF CLOSEST POINT TO END 

ISUBC ISTOR ) sISUfi ( JSA VE ) 
C CHANGE CLOSEST POINTER TO ACCESS UST POINT 

ISUB(JSAVE)=ISTOR 

IF(ICHAR.EC.65) GO TO 360 
C MOVE OLD POINT TO LAST POINT ( INSERT BEFORE) 

X(ISTOR)sX(JSAVE) 

y(ISTOR)=y(JSAVE) 

GO TO 370 
C hIM POINT ADD AFTER 

360 JSAVEsISTOR 
370 X(JSAVE)=XO 

Y(JSAVE)=yO 

IF(KSTOR.LT,995) GO TO 330 
CALL NEWPAG 
CALL CKRSIZd) 
CALL ANKCDE 

PRINT 380, NSTCR.NPTOT+5 
3£0 FORKATC* WARMNG DATA STORAGE IS NEARIHG 1000 KAX LIMIT*/ 

1 * A REPACK PROCEDURE HAS BEEN INVOKED TO GIVE Y0U«,13,/ 

2 « KCRE STORAGE LOCATICKS PRESS RETURN TO CONTINUE* 

3 ,/•• AND. DELETE POINTS IF YOU CAN*) 
CAU TINPUT(I) 

CAU CHRSI2(i<) 
GO TO 500 



TIGP0259 



DELETE POINT (D) 



390 DSAVEsI.E^O 

IF(NPTOT'.EC.O) GO TO 2fi0 

IS=6i* 

NSUK=1 

Ksl 

DO ii30 Isl.KL 
KENDsNSUM+KPTACD-l 

C««»»SAVE THE POINT BEGINNING EACH LIKE 
KBEGNzK 

DO il20 JsNSUfi.WEND 

IF(IKILL.LE.0)GO TO 395 

IF(I,NE.IKILL)GO TO *»10 
395 IF{NLINE.EC.O) GO TO ^100 

IF(NDRAW(I).EC.O) GO TO U^Q 
^00 XDX=X(K)-X0 
. .YPY=Y{K)-,y.O 

DI£t=XbX«XDX«RDX2<^YDy«yDY*RDY2 

IF(DIST.GE.DSAVE)GO TO 

DSAVEsDIST 

JSAVEsK 

ISAVE=I 

KLINEsKBEGN 
^10 KfiEFL=KLAST 



TICP0260 
TIGP02ei 
TIGP0262 
TIGP0263 
TIGP02e^ 
riCP02€5 
TIGP0266 
TIGP02C7 
TIGP0266 
TIGP02e9 
TIGP0270 
TIGP0272 

TIGP0273 
TICP027^ 
TIGP0275 
TIGP0276 
TIGP0277 
TIGP027E 
TIGP0279 
TIGPC2eO 
TIGP0281 
TIGP02e2 
TIGP02£3 
TIGP026^ 
TIGP02e5 
TIGPD2e6 
TICiP0287 
TIGP02E8 
TIGP0289 
TIGP0290 
TIGP0291 
TIGP0292' 
TIGP0293 
TIGP029^ 
TIGP0295 
TIGP029e 
T1GP0297 
TIGP02S6 
TIGP0259 
TIGP0300 



TIGP0301 
TICP0302 
TIGPO303 
TIGP030** 
TIGP0305 
TIGPO3O6 
TIGPO307 
TIGP030£ 
TIGPO309 
TIGPO31O 
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KLASTsK 
^20 KrlSUBCK) 
^20 KSUK=NEND+1 

ISsISAVE*64 
W IF(IS.LE.90)GO TC ^150 

IS=IS-90 

CO TC W 
^50 CALL POJNTA(X(JSAVE).Y(JSAVE)) 

IF(ICFF.EC.O)CALL ANCHOflS) . 

IF(1CHAR.EC.11)GC TC 810 

IFdCHAR. NE.il) GO TC 310 

KsJSAVE 

C*««« HEV; REVISION SPRING £2 

IFCK.NE.KLAST) GO TC U60 

KLASTsKfiEFL 

GC TO mo 
^60,KFKD=ISUB(K) 

IF{KFWD.NE.KLAST)GO TO ^6^' 

KLASTsK 

GO TO i*65 
^62 ISUB(K)=ISUB(KFV;D) 

ISUB(KFWD)=ISUB(JCLAST) 

ISUfi(KUST)=KFWI) 
^65 X(K)sX(KFWD) 

Y(K)=Y(KF>fD) 
iI70 NPTOT=KPTOT-1 

KSTCRsNSTOfl-l 

NPTA ( ISA VE )=NPTA ( ISA VE }- 1 

IF(KPTA(ISAVE).GT.O)GC TC ^190 

NPTA(ISAVE)cO 

J=0 

DO 480 1=1, NL 
1F(I.EC.ISAVE)G0 TO il80 
JsJ+1 

NPTA(J)=NPTA(I) 
VLAEL(J)=VLABL(I) 
HTT{J)cKTT(I) 
LTT(J)=LTT(I) 
480 CONTINUE 
NPTA(KL)=0 
.NLsKL-J 
IKILLrO 

490 IF(IKILL.EC.O)GC TC 2£0 
IKILLsISAVE 
CO TC £10 
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c 
c 
c 



END (E) 

500 CALL- NEV. FAG 
Lsl 

DO 530 I=2,NPT0T 
KsISUECL) 

IF(I.EC.K) GO TC 530 
JsK 

JLEFT=NPTOT+l-I 
DO 51d.KKr1,JLEFT 
IF(J.EC.i: GO TO 520 
JO=J 

510 J=ISUB(JO) 

520 ISUE(JO)=K 
ISUE(L)sI 
ISrISUECI) 



TICP0211 
TIGP03 12 
TIGP0313 
TIGP0314 
TIGP0315 
TIGP0316 
TIGP0317 
TIGP031fi 
TIGP0319 
TIGP0320 
TIGP0321 
TIGP0323 



TIGP0338 

TIGP0339 

T1CP0340 

TIGP0341 

TIGP03il2 

TIGFO343 

TIGPO344 

TIGPO345 

TIGP034£ 

TIGPO347 

TIGP034ff 

TIGP034S 

TIGPO35O 

TIGP0351 

TIGPO352 

TIGPO353 

TIGPO354 

TIGPO355 

TIGP0356 

TIGP0257 

TIGP035£ 

TICP0I59 

TICP03C0 

TIGP0361 . 

TIGP0362 

TIGP03£3 

TIGP0364 

TIGP03f.5 

TICP0366 

TIGP0367 

TIGP036e 

TIGP0369 

TIGPO37O 

TIGPO37I 
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35 36 

ISUB(I3=ISUB(K) TIGP0372 

ISUB(K)=IS TIGP0373 

XS=X(I) TIGP037^ 

X(I)=XCK) TICP0;75 

X(K)=XS TIGP0376 

XS=Y(I) TIGP0377 

y(i)sy(K) TiGP037e 

Y(K)s:XS TIGP037S 

530 L=I TIGP0380 

IF(ICHECK,EQ.2) RETURN TIGP03E1 

GO TO 30 TIGP03E2 

C ' TIGP0383 

C FORMAT (F) TIGP03£^ 

C TIGP03E5 

5^0 LCKTsLCKT-LDEL TICP03Ee 

CALL HOVAfiS(O.LaJT) TIGP03E7 

. CALL ANKCDE TIGP03Ed 

lYrCYO-YEEO/DELy+SOO TIGP03f9 

II={30^5-IY)/50+l TIGP03S0 

IF(II.LT.I) 11=1 TIGP0391 

IF(Il.CT.KL) IIsKL TICP03S2 

PRIKT 550.LTT(II).KTT(II) TIGP03S3 

550 FORHAT(« LT= «,I2,« KT= «,I2) TIGPO30U 

CALL GETIK(2.VT£H) T2GP0355 
LTTdDrVTEJUl) 

K^^II)=VTE^^(2) tigposss 

:LCI.^TcLCIJT-LPEL TIGP03S7 

c Ticpojsa 

C IF F CUTSIDE OF AXIS THE SET ALL CURVE KCDES TIGP03SS 

C TICPO^OO 

IF(XO.LE.TXKIN) GC TO 280 TIGP0401 

DO 560 Is 1.50 TIGP0i;02 
^ LTT(I)=VTEK{1) 

560 MTT(I)sVTEf:(2) TICE0il03 

CO TO 280 TIGPO^fO^ 

C TICP0405 

r C CHAKGE GRID OPTION TIGP0406 

C TICP0i)07 

570 LCKT=LCNT-LDEL TIGPO^lOe 

CALL MOVABS(0,LCKT) TIGP0^09 

CALL AWHODE TIGPOillO 
PRIKT 

1"GRID OPTIONS, (IN X,Y PA IRS)KAJOR, MINOR TICK MARKS » GRID SWTCKS" 

CALL GETlN(6,VTEf!) TIGP0ill3 
LCNT=LCNT-LDEL 

IXDENsVTEKd) TIGPOilli* 

iyDEN=VTEK(2) TIGP0il15 
ITMX=VTEK(3) 
IT>IY=VTEH(*I) 

IGRIDY=VTEK(5) TIGPO^iie 

IGRIDX=VTEM(6) TIGPOiilT 

GO TO 280 TIGP0420 

C TICP0^21 

C KB: LINE (K) TIGP0ii22 

C TIGP0il23 

590 ):PT0T=NPT0T+1 TIGP0il2^ 
KSTOR=NSTOR+ 1 TIGP0^25 
IF(NPTOT.NE.I) GC TO 591 TIGP0iJ26 
ISTORsI 

GO TO 592 ' 

591 1ST0R=ISUB(KLAST) 

592 KLASTsISTOR 
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37 

IF(IPLOT+ITAB.EC.0)GO TC 760 
600 X(ISTOR)=XO ^ 
^ y(ISTOR)=Y0 

lS=NU6il 
ISAVEzNL 
JSAVEsISTOK 

KC DATA THEM DO[T SYIIBOL IT 
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IF(IPLOT.EC.O) GO TC 630 
610 IF(IS.LE.90)GO TO 6?0 

.is^is-so 

GO TC MO 
620 CALL P0IKTA(X0,Y0) 

IF(IOFF.EC-0)CALL AKCHOCIS) 
630 NPTA(KL)=1 

KL1=KL+1 

KPTA(KLl)sO 

LCKTsLCKT-LDEL 

CALL i/CTATE(0,LCNT.22.KSG2) 

LCKT=LCNT-LDEL 

CALL KCVABS(0,LCKT) 

CALL AKKODE . 

CALL CETIN(3.VTEK) 

VLABL(NL)=VTEM(1) 

LTT(NL)sVTEK(2) 

KTT(NL)=VTD1(3) 
C»««««ISAVErNL 
C«»«»ftJSAVErKSTOR 

IF(IPLCT.EO.O) GO TO 710 

CO TO 320 



C 

c 
c 
c 
c 
c 



PLOT (?) 



CHECK FOR TABLET MODE, SKIP SPECIAL P SECTION IF TABLET 



6110 IF(ITAB.EQ.I) GO TC 710 
IFCXO.GT.T»:iK) GO TO 710 
IF(IDEK.GT*0)GO TO 680 
LCNT=3120 

CALL KCVABS(0,LCNT) 
'CALL AKKODE 

PRINT e50,(LAEVAL(J1).J1rl,KCC) 
CALL KCVABS(2800,2e00) 
650 FORKATCSAIO) 
LCKT=LCKT-LDEL 
KL=0 

DO 670 Jlsl.KL 

LCKTsLCNT-LDEL 

CALL MCVAB£<O.LCKT) 

IF(KL.EC.27)KL=0 

KL=KL+1 

CALL ANMODE 

PRIKT 660,KL,VLABL(J1) 
660 FORMATdX, R1,G13.5) 
670 COKTIKUE 

IDEK=1 

C»»«» GET BACK TO PLOTTING LABEL ONLY TURNED OK 
-GO -^TC 280 

C»««« 



TIGP0il26 
TIGP0il29 
TIGPOiiSO 
TIGPO^iSI 
TIGP0il32 



TICP0il33 
TIGP0il3'* 
TIGP01I35 
TIGP0il3C 
TIGP0ii37 
TIGPO^Sa 
TJGPOt39 
TIGPO^^O 
TIGPO^(t;l 
TIGP0tK2 
TIGPO^ilB 
TIGPO'fiiii 
TIGP0til5 
TIGP0^U6 
TIGP0«lii7 
UG?0UU9 
TIGP0«i|O 



TIGP0il51 
TIGP0^52 
TIGP0i;53 
TICPOIS^ 
TIGP0ii55 
TIGPjpil56 
TIGP0^57 

TIGP0i;5e 
TIGPOiiSc 

TIGPO^eO 
TIGPOilCI 
T1GP0^62 
TIGP0i;63 



TIGP0il65 
TIGPOi*66 
TIGPOieT 
TIGP0iJ6S 
TIGP01I69 
TIGP0A70 
TIGP0^71 
TIGP0ii72 
TIGP0^73 
TIGPOil?^ 
TIGP0^75 
TIGPO'i76 
TIGPO*i77 
TIGP0ii7e 
TIGP0iJ7S 
TIGPO^eO 
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c 
c 
c 



c 
c 
c 



c 
c 
c- 
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39 

6£0 IF(NLINE.GT.O) CO TO 700 

DO 690 Irl.HL 
eco KDRAW(I)=0 
"700 IY=(yO"YEEG)/DELY*300 

IIr(30il5-IY)/50+l 

IF(II.LT.l) 11=1 

IF(II.GT.KL) IlrNL 

KLINEsI 
GO TO 280 

710 CALL nev:pag 

CO TO 50 

RESTORE WINDOW (R) 

720 IF(XO.CT.T»IIN.OR*NLINE.EC.O) GO TO 730 

NLIKE=0 

GO TO 260 
730 IVINsO 

GO TO 710 

SHOW VALUE (S) 

7^0 LCNT=LCNT-LDEL 

CALL KOVABS(0,LCKT) 

CALL ANMCDE 

PRINT 750,XO,YO 
750 FORHAT(»X=«,G13.5,/.*Y=«,G13.5) 

LCNT=LCNT-LDEL 

CO TO 280 

VALUE IN CV) 

760 LCKTrLCNT-LDEL 

CALL K0TATE(0,LCKT,10,KSG5) 

LCKTsLCKT-LDEL 

CALL KOVABS(0,LCKT) 

CALL AKKODE 

CALL GETIH(2,VTEK) 

XOrVTEK( 1) 

Y0sVTEK(2) 

CHECK FOR K COMMAND VALUE INPUT SECTION* 

IF(IPLOT.EC.O) GO TO 600 
LCKT=LCNT-LDEL 
CALL JtOJATE CO , LCKT , 15..K3.G6 ) 
CALL TINPUTCICHAR) 
GO TO 510 

WINDOW (W) 

770 CALL GETVALCICKAT.Xl.Yl) 
7£0 AXMINsAfllNUXO.XI) 

AXMAXsAKAXKXO.XI) 

AYKIKsAHINUYO.YI) 

AYMAX=AKJIX1(Y0.Y1) 

IVINrl 

IF(ICHAT.EC-122) GO TO 710 

IF((AYKAX-AYKIN)/D£LY.GT.e,) GO TO 710 

LCNTrLCKT-LDEL 

CALL N0TATEC0.LCKT.29.KSG7) 



40 



TIGPO^ei 
TIGP0iie2 
TIGP0i*83 
TIGPOiiei* 
TIGP0i»e5 
TIGP01E6 
TICP0i*E7 
TIGP0*I88 
TIGPO^ieg 
TIGP0i»90 
TIGP04S1 
TIGP0i*S2 
TIGP0«S3 
TIGP0i<91 
TIGP0i*95 
TIGP0i*96 
TIGP0197 
TIGPOil98 
T1GP0^99 
TIGP0500 
TIGP0501 
TIGP0502 
TIGP0505 
TIGPOSOi; 
TIGP0505 
TICP0506 
TIGP0507 
TIGP0508 
TIGPO509 
TIGP0510 
TIGPOSn 
TICP0512 
TIGP0513 
TIGP^5I*t 
TIGP0515 
TIGP0516 
TIGP0517 
TIGP0518 
TIGP0519 
TIGP0520 
TIGP0521 
TICP0522 
TIGP0523 
TIGP052*t 
TIGP0525 
TIGP0526 

TIGP0527 
TIGP052ff 

TIGPC529 
TIGP»530 
TICP0531 
TIGP0532 
TIGPC533 
TIGP0531 
TIGP0535 
T1GP0536 
TIGP0537 
TIGP053e 
TIGP0539 
TIGPOS^iO 
TIGP0511 
TIGP05^2 



03/17/2003, EAST version: 1.03.0002 



41 



4,578,766 



42 



LCNT=LCKT-LDEL«2 

CALL MCVABS(0»LCNT) 

CALL AN>:CDE 

LCNTrLCNT-1 

CALL GETIK(i*,VrEK) 

XOrVTEM(l) 

yO=VTEK(2) 

XUVTEM(3) 

yirVTEK(il) 

DELy=l.E-99 
GO TO 780 
C««««« LOCATE TITLE 

C»790 CAa SWCKAR(l) 

790 CALL INTITE(XO,yO) 
«••» CALL SWCHAR(O) 

GO TO 280 
C**«»« :'DELETE ENTIRE LINE CODE 

800 IKILL=-1 

GO TO 390 
810 XO=X(KLINE) 

yOsY (KLINE) 

ICHAKr^ 

GO TO 3S0 

END 

Cn/IDE 

SUBROUTINE WIDECX.Y.IR) 

COKMON/TEKGPPR/LDEL,LCKT.KAXSR, LTV ( 17 ) , EN(2 ) , DELX. DELY 
DATA DS/8./ 
IF(IR*EC.-1)GC TC 200 
DX=(X-XE)/DELX 

. Dyr(y-Yg)/DELy 

AHCrl. 5707963 
SLrl.ElO 

IFCDX.EQ.C) GO TC 120 

SLsDY/DX 

ANGsATAN(SL) 
120 DXPrDS«SIN(ANG) 

DyP=DS«CO£(AKG) 

1F(SL.NE.0.) DXP=-DXP 

IF((DX«Dyp.Dy«DXP).GE.0.)GO TC 190 

DXPz-DXP 

DyPs-DYP 
190 DXP=DXP«DELX 

DYPrDyP«DELy 

CAa DRAWA(XB+DXP,yB+DyP) 
CALL DRAWA (X+DXP. Y+DYP ) 
CALL DRAVA(X,y) 
200 XBsX 
YBcy 
IR=0 
RETURN 
END 
CGETVAL 

SUBROUTINE CETVAL(ICHAR,XV, YV) 

C0HM0N/T£KGPPR/DUK(3 ) , ICL. ITAE , ITAES, XS . YS , DUM2(20> , NLINE 
C ICL=0 INITIALIZE TABLET i-:v;,«i.aftL 

C ICrO NOT IK CONTINUOUS MCDE 
C ITAEsO SCREEN CURSER 



TIGP05^3 
TIGPOSii'* 
TIGP05*5 
TIGP05^6 
TIGP0547 
TIGP05^8 
TIGP05J^9 
TIGP0550 
TIGP0551 
TIGP0552 
TIGP0553 
TICP055^ 
TIGP0555 
TIGP0556 
TIGP0557 
TICP0558 
T1GP0559 
TIGP0560 
TIGP0561 
TIGP0562 
TIGP0563 

Ticpose^i 

TIGPOSeS 
TIGP0566 
TlGP05e7 
TIGP0568 



GETV0001 
GETV0002 
GETV0003 
GETVOOOil 
GETV0005 
GETV0006 
CETV0007 
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C»t»« GET VALUE AI!D CHARACTER FROM CROSS HAIRS OR TABLET GETV0008 

C»««« GETV0009 

C«*»» CETV0010 

C»»»« CHECK FOR TABLE INPUTS GETVOOl 1 

C«»»« ' GETV0012 

10 IFCITAB.EC.DCO TO 20 GETV0013 

CALL VCURSR(ICHAR.XV»yV) GETVOOlii 

C»»»* GETVOOl 5 

C««»« CHECK TO SEE IF SCREEK CCMKAKD WAS TO ACTIVATE TABLET GETVOOlfr 

C»*»« GETV0017 

IF(ICHAR*NE.8^)G0 TO 30 GETVOOl© 

ITABsl GETV0019 

ICLrlTAES GETV0020 

C«**« GETV0021 
C»««« SET TABLET LAST CHARACTER (ALSO USED AS A FUG FOR INITIALI2ATICK GETV0Q22 

C»*»« GETV0022 

20 ICHARrlCL GETV002ii 

CALL TABVU(ICHAR.XV,yV) GETV0025 

C««»» CETV0026 

C?^*«*.-SAVE LAST.^TAeLETv^CHARADTER -CCI-iHAUD GETV0027 

C«««* GETV0:28 

ICL=ICHAR GETV0029 
C»«« IF IN TABLET MODE AND A NEW LIKE COKKAND 
C*«« THEN TURK OFF COMMAND ...DEFAULT IT TO ADD AFTER 

IFCICL.EQ.7e)ICL=65 

NLINEsO GETV0030 

C 

. C SET FLAG TO PLOT ALL LINES IN TABLET MODE 

C 

C»t«f GETV0031 

C»»»f CHECK FOR TABLET HALT COMMAND GETV0052 

C«»«« GETV0023 
IF(ICL.NE.72)G0 TO 30 - CETVOOS^ 

C»««« GETV0035 

C«««« TURN OFF TABLET AND SAVE UST COMMAND GETV0036 

C«««» GETV0037 

ITABsO GETV0038 

ITAES=ICL CETV0039 

RETURN GETVOOitO 

30 IF(ICHAR.E0.69)ITABS=0 GETVOQiil 

RETURN GETV00il2 

END GETVOOnS 

CTABVU 

TAEVOOOl 

SUBROUTINE TAEVUCICHAR.XV, YV) TABV0002 

COHKON/TEKGPPR/LDEL , LCN T,MAXSR, LTV(5 ) TABV0003 

,LS,MXl,MYl,MX2,MY2,XB,yB.FACX.FACy,ANG,MXB,MYE TABVOOO^ 

DIMENSION MSG 1 (5 ^ ) , MSG2 (il 3 ) . MSG3 ( ^ 3 ) . KSG^* ( 1 8 ) , ICON V (2.10), TABV0005 

IRETN(2.10),XTEH(2) TABVOOOe 

DATA ((ICONV(I.J),Jsl,10),I=l,2)/65,66,67,68.69,71,72. TABV0007 

105.78,80,82.63.86,67. TABV0008 

32 ,32 ,32,32.32,32/ TABV0009 

DATA ((IBETN(I,J)rJ=l,10),I=1,2)/ 0, 0, 0, 0, 1, 1, 1, TAEVOOlO 

1, 0. 1, 1, 0, 1, 0, TABV0011 

1, 1, 1. 1, 1, 1/ TABV0012 

DATA KSC1/ 83. 113.117. 97,1U.101, 32,109,101,110, TABV0013 

117. 32. 119. 105, 116, 10*1, 22.116. 97. 98, TABVOOlii 

108,101,116, 32, 97,110,100, 52,116,111, TABV0015 

117, 99.10ii, 32,117,112,112,101,11^1, 32, TABV0016 

108,101,102,116, 32,109,101,110,117, 32, TABV0C17 

100,111,116, ii6/ TABV0018 

DATA MSG2/ 8^, 111.117, 99,10ii, 32, 97,120.105,115, TABV0019 
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10 



20 



1 32.in.11^.105.103.105»110. 


32. 


97,110, 


TABV0020 


1 100. 32,101.110.116.101.11^1. 


32.118. 


97. 


TAEV0021 


1 108, 117, 101. 115, 32. 


66. 


32, 


97.110. 


100, 


TAEV0022 


1 32, 6S. ^6/ 












TABV002^ 


DATA KSG3/ 8^^,111,117. 99.10^, 


32, 


32, 


32, 


97.120. 


TAEV002M 


1 .1C5,115., ^c, .97.1.16, 


,C2. 


aM,v'S7..120, 


■32, 


•TAEV0025 


1 iOE.ioi.no.i02.ii6,io«, 


32, 


97. no, 100, 


TABV0026 


1 32,101.110.116,101,11^1, 


32. 


lU. 


97.108, 




1 117,101. 46/ 












TABVD02fi 


DATA MSGiJ/ 76, 97.115. 116, 32, 


99,111.109.109, 


Ml » 




1 110.100, 32,119, 97,115, 










TABVOO^O 


IF(ICHAE.NE.O)CC TC 30 












TABV003 1 


TAELET HAS l.'CT BEEN SET CHECK : 


1 r 








TABV0032 


LSzlOO 












TABV0033 


CALL TAEINT( 1.0,0) 












TABV0034 


CALL NEV;PAG 












TABV0035 


LCKT=3120-LDEL 












TABV0036 


GET ^;EKU POSITIOK 












TABV0037 


CALL NCTATE(0.LCNT,54.KSG1) 












TABV0038 


CALL BELL 












TABVOD^P 


CALL ONEPNT(KXl.Myi) 












TAEV004D 


MX2=KX1+1000 












TABV0041 


Ky2=KY1.200 












TABV0042 


GO TO 20 












TAEVOOU? 


LCKT=3120 












TABVOOUiJ 


CALL kd:fag 












TAFV00^5 


LCKTrLCKT-LDEL 












TAEV00i*6 


GET CCCRDINATE IKTERSECTIOK 










TABVOOii? 


CALL KCTATE(0.LCKT,13,KSG2) 












TAEV00il£ 


CALL EELL 












TAEV00^9 


CALL ONEPNT(KXE,KYE) 












TAEV0050 


LCKT=LCNT-LDEL 












TABV0051 


CALL MOVAES(O.LCNT) 












- TABVOO^P 


CALL AW^CDE 














CAU GETIN(2,XTEK) 












TAEVDO«;ii 


XBsXTEfKl) 












TABV0O55 


yB=XTEM(2) 












TABV0056 


LCNTsLCKT-LDEL 












TABV0057 


.HSG3(7>=88 












TABV005fi 


GET X AXIS POSITION KAX 














CALL KOTATE(0.LCNT,il3,KSG3) 












TABVD060 


CALL EEU 












TABV0061 


CALL CNEPNT(KXH,NH:) 












TABV0062 

• **** • w wwc 


LCKTsLCKT-LDEL 














CAU KOVAESO.LCKT) 












TABVOOf il 


CALL AKhXDE 












TAEV0065 


GET VALUE AT POSITION 












TARVDQffi 


CALL GETIIKI.XM) 












TABV30f7 


DXsKXh;.KXB 












TARvnnfip 

lAO VUUOO 


DysNX^:-MyE 












iACVUuO? 


COMPUTE AKGLE CCRRECTIOK 














ANG=ATAK2(Dy,DX) 












TAEVU07 1 


LCNTsLCKT-LDEL 












TAcVUOT^ 


MSG3(7)=69 












T£PUAft*70 

iiic VuUf J 


■ GET y AXIS POSITIOK KAX 














CALL KCTATE(0,LCNT,113.MSG3> 












TABV0075 


CALL BELL 












TAEV0076 


CALL ONEPWTCKyK.NyH) 












TABV0077 


LCKT=LCMT-LDEL 












TAEV0078 


CALL KCVABSO.LCHT) 












TABV0079 


CALL AKKCDE 












TAEVOOeO 


GET VALUE AT FOSITICK 












TAEV0081 
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CALL GETIKd.YK) 
COSA=COS(AKG) 

C SET UP CChKCN FACTORS FCR AKGLE CCRRECTICKS 

FACX=(XK-XB)*COSA/DX 

F A Cy = ( YK-YE ) « COSA/DY 

IHITsl 

XVsXM • 

YV=YK 

ICHAK=e7 
C RETURK PLOT CCKKAKD 

• RETURN 

C CHECK FOR TABLET INITALI2ED 

50 IFdNIT^NE.DGO TO ^0 

IChARr122 

XVsXB 

YVsYB 

IKITsO 

RETURN 
HO CALL EEa 

CAU ONEPNT(IX,iy) 
C CHECK TO SEE IF POINT SEf^T IS A MENU CCKMAND 

IF(IX.GT.KX2,0R.IX.LT»MX1)G0 TO 50 

IF(IY.GT.Myi.0R,IY,LT.Hy2)GC TO 50 

IC=(IX-MX1)/LS4l 

IR=(KY1-iy)/LS+l 
C CONVERT FCVr AKD CCLUKK PCSITICK TO CCMKAKD CHARACTER 

ICHAR=IC0NV(IR,1C) 

IF(ICHAR.EC.32) RETURN 

KSGiJ(1E>=ICHAR 

LCKTrLCKT-LDEL 
C UST MESSAGE CCHKAK'D 

CALL KOTATE(0.LCNT,18,KSGl*) 

IF(ICHAR.E0.105)GO TO 10 

IF ( IRETK ( IR , IC ) . EC . 1 ) RETURN 

GO TO ^10 

C CONVERT TABLET UNITS TO VIRTUAL UNITS WITH ANGLE CORRECTION 

50 DX=IX-HXB 
DY=n-MYB 

IF(DX.EC.0.)DX=l.E-.20 
R=SCRT(DX»DX*Dy«DY') 
ANGR=ATAN2(DY,DX)-ANG 
X V=R« FACX*COS ( ANGR )-i-XB 
YV=R»FACY«£IN(ANGR)+yE 
RETURN 
END 
CDRAKIT 

SUERCUTINE DRAV/ITCNL^NPTA.X, Y.ISUE.MTT.LTT) 
COMMON /SKAP/KSHADE(2.l6e) 
COMMON/TKTRNX/ITEKC (60) 
. COKMON/TEKGFPR/DUK(20),EN(2),DEL(2).BEG(2),RDX2.RDY2,NLINE, 
1 NDRAW(50) 

EQUIVALENCE {IOFF,ITEKC(30)) 

DIMENSION CSY(626) .CSX(626) ,NPTA( 1 ) ,X( 1 ) , Y( 1) . ISUB( 1 ) 

DIMENSION MCCN(16).IDLN(10),MTT(1),LTT(1) 

DATA MCON/2,l,2.3,^.5,0,0.0,0.0,.1,-2.-3,-^.-5/ 

DATA IDLN/ 
+0.56, 
+776 » 
+77616. 
+77777777616, 
+77761616161, 



TABV00a2 
TAEV0083 
TAEVOOS** 
TABV00e5 
TAEV0086 
TABVOOe? 
TABV0088 
TABV0089 
TABVOOgO 
TABVOOSl 
TABV0092 
TABV0093 
TABV009^ 
TABV0095 
TABV0096 
TABV0097 
TAEV0098 
TABV0099 
TABV0100 
TABV0101 
TABV0102 
TABV0103 
TABV0101* 
TABV0105 
TABV010C 
TABV0107 
TAEV0108 
TABV0109 
TABV0110 
TAEV0111 
TAEV0112 
TAEV0n3 
TAB VO nil 
TABV0115 
TABV0116 
TABV0117 
TAEVOIIf 
TABV0119 
TABV0120 
TABV0121 
TABV0122 

TAEV0123 
TAEV012ii 
TABV0125 
TABV0126 
TAEV0127 
DRAW0001 



DRAV0003 
DRAW 0004 

DRAW0007 
DRAW0006 
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1 LINE 2 SaiNE WRT X 3 SPLINE VRT Y ii ARC FIT 5 CLOSED 



C 
C 

C 0 SYMBOLS 
C 

DO 1 1=1,166 
KSHADE(2.I)=0 

1 KSHADE(1.I)=0 
IT=6i| 

K=l 

NSUKrI 
NCrO 

DO 290 1=1. M 
IR=-1 

KIKD=LTT(I)+1 

LDASHrlDLNCKIKD) 

KINDsKtKD+l 

iv;iD=o 

2 IF(KIKD.LT,20)GO TO 5 
IVID=IWID+1 
KIKD=KIND-10 

GO TO 2 
5 ISYK=MCC,V(KI?;C) 
ITYPrlAESCISYi:) 
IF(ITYP.Cr.l) GO TO i;o 
NEND=KSUK+NPTA(I)-1 
IT=mi 

IF(IT.GT.90)IT=C5 
DO 20J=KSUK.NEND 
IF(KLIKE.EC.O) GO TO 10 
IF(NDRAW(I).EC.O) CO TO 20 
10 XP=X(K) 
YP=Y(K) 

IF(J.EC.NSUK) CALL KCVEA(XP.YP) 
IF(LDASH.EC.0)GO TO 16 
CAU DASHA(XP,YP.LDASH) 
GO TO 15 

16 .IF(IWID.KE,2)G0 TO 17 
CALL SHADE (XP,YP,IR) 
GO TO 15 

17 CALL DRAWA(XP,YP) 
IFdKID.EC.DCALL DWIDE(XP, YP. IR) 

15 IFdSYK.LT.O) GO TO 20 
CALL KGVEACXP.YP) 
IFdOFF.EC'.O) CALL ANCHOCIT) 
CALL KCVEA(XP,YP) 
20 K.?ISUB(K) 
30 NSU^^=KEKD+1 
GO TO 290 



DRAV;0009 
DRAW0010 

DRAW0012 



C 
C 
C 



PLOT VITK SPLINE 

MO HSrKC 

NPT=NPTA(I) 

NC=NC+NPT 

IT=IT+1 , 

IF(IT.GT»90)IT=65 

IF(NLINE.EC.O) GO TO 60 

IF(KDRAV/(I).NE.O) GO TO 60 



DRAW0013 
DRAWOOIil 
DRAW0015 

DRAV0016 



DRAKC008 

DRAV0017 

DRAW0016 

DRAW 00 19 

DRAW 0020 

DRAW0021 

DRAW0022 

DRAW0023 

DRAW002i4 • 

DRAV0025 



DRAW0027 
DRAV0028 
DRAV0029 
DRAVOO 
DRAW0030 
DRAW0031 
DRAV0033 
DRAV003^ 
DRAVO035 
DRAW0036 
DRAW0042 
'DRAWOO'J3 
DRAW0044 
DRAW0045 
DRAWO0it6 
DRAW0047 
DRAWOO^e 
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LOCATE POIMTEfi OT NEXT LINE 

DO 50 Lrl.NPT 
50 KrlSUE(K) 

GO TO 290 
60 JFITr2 

yo=y(K) 

KlrlSUB(K) 

IF(ITYP,GT.2) GO TO 80 
X0=X(K) 

CHECK X DATA FOR ASCENDING ORDER 
DC 70 L=2,NPT 

.,xv:^x(Kn 

IF(XI.LE.XC) GO TC 110 
KlsISUE(KI) 
70 XOrXl 

GO TO 210 
• EO IFCITyp.GT.3) GO TC 100 

CHECK y DATA FOR ASCENDING ORDER 
DO 90 L=2,KPT 

yi=y(Ki) 

IF(yULE.yC) GO TO 110 

K1sI£UB(K1) 
90 YOsYl 

GO TO 210 
100 JFIT=ITYP-2 
110 NCIRsO 

IF(JFIT.EC.3) NCIR=-NPT/2-1 

IF(NCIR.LT.-5) NCIRs-S 

MPT=NPT-2*NCIR 

QSY(1)=KPT 

CSX(1)=KPT 

SsO. 

KAsNS 

KOrKA 

KE=KO+NPT 

KSAV£=K 

KArKA+NCIR 

DO 160 Hr1,KPT 

M1=M+1 

KAsKA-i-1 

IF(KA.GT.KO) GO TO 130 

NDOsNPT+NCIR 

DO 120 IIs1,ND0 
120 KrlSUB(K) 

*:ArKA+NPT, 

GO TO 1^10 
130 IF{KA.NE.(KE+1))GC TO 11*0 

JSAVE^K 

KrKSAVE 

KA=KA-NPT 
lUO CONTINUE 

L=HUHPT 

yyyprYCK) 

XXXP=X(K) 
K=ISUE(K) 

IF(K.EC.I) GO TC 150 

DS=SCRT(RDX2«(XXXP-X0)««2+RDy2«(yyyP-y0)»«2) 
S=S+DS 
150 XOsXXXP 

yb=yyyp 

OSX(M)=S 

csy(Ki)=s 

QSX(L)=XXXP 



DRAV00149 

DRAW0050. 

DRAV0051 

DRAW0052 

DRAW 005 3 

DRAW00511 

DRAW0055 

DRAV/0056 

DRAWOO57 
DRAV0058 
DRAW0059 
DRAW 0060 
DRAW 0061 

DRAW0062 
DRAW0063 
DRAW0061I 
DRAW 0065 
DRAW0066 
DRAW 0067 
DRAWC0e8 
DRAW0069 
DRAW0070 
DRAWOO7I 
DRAW0072 
DRAW0073 

DRAWOO75 

DRAW0076 
DRAW0077 
DRAW007& 
DRAK0079 
DRAW0080 
DRAWJ081 
DRAW 0082 
DRAW00E3 
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DRAW0085 
DRAW0086 
DRAW 0087 
DRAW 0088 
DRAW0089 
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DRAWOO9I 
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DRAWOO93 
DRAW009<t 
DRAW0095 
DRAW0096 
DRAW00S7 
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DRAWOIO3 
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DRAW0106 
DRAW0107 
DRAW010E 
DRAl/0109 
DRAWC110 
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160 CSY(L)ryYYP 
KArKO*NPT 
CSX(U.n=0. 

csY(ui)=a. 

CSY(U2)rl. 
X0=C5X(KPT+2-NCIR) 
yO=CSY(KPr+2-KCIR) . 
IF(ISYf'..LE.O) GO fC 1£9 
CALL KCVEACXO.YC) 
IFCIOFF.EO.O) CALL ANCKO(IT) 

169 CALL HCVEA(XC.YO} 
IFCIWID.EC.DCALL DWIDE(XC,yc.IR) 
IF(IKID,EC.2)CALL SHADE (XO^YO.IR) 
SCKsQSXO-NCIfi) 
S=CSX(2-NCIR) 

IF(KPT.LE.I) GC TO 290 

DC=«0, 

DSsilO. 

NCKs2 

170 S=S+DS 
XP=SFLN0U1,CSX,S) 
YPsSPLKC1(1.0SY,S) 

DCKsSCRT(RDX2«(XC-XP)««2+RDY2«(Y0-yp)««2) 
DSs DC«DS/DCK 
180 IFCS.LT.SCK) GO TC 200 
KSYKsMPT+UNCK-NCIR 
XS=0SX(H5YK) 
yS=OSY(KSYK) 
IF(LDA£R,EC.O)CC TO .185 
CALL DASHA(XP,YP,LDASH) 
GO TC 186 

185 IF(IKID.KE.2)G0 TO 187 
CALL SHADE (XS.YS. IF;) 
GO TC 18( 

187 CALL CRAWA(XS»yS) 

IFdWID.EC.DCALL DWIDECXS, YS, IR) 

186 IF(ISYf:.LE.O)GC TO 190 
CALL HOVEACXS.YS) 
IF(ICFF.EC.O) CALL AKCHC(IT) 
CALL KCVEACXS.YS) 

190 NCKrfJCKi'l 

SCKsQSXCKCK+l-KCIR) 

IF(KCK.LE.KPT+JFIT.2) GO TO 180 

IFCJFlt.EC.'.) K=JSAVE 

CO TC 290 
200 IF{LDASH.EC.0)CO TO 205 

CALL DASHA(XP,YP,LDASH) 

GO TC 206 

205 IF(IVID.NE.2) CO TC 207 
CALL SHADE (XP.YP,1R) 

GO TC 206 
207 CALL DRAWA(XP,YP) 

IFCIVID.EC.DCALL DWIDECXP. YP, IR) 

206 XOsXP 
YOsYP 

GO TC 170 
210 0SX(1)=NPT 

DO 2il0 M=1,KPT 
NsK+1 
- KArNS^N 
L=«+NPT 
XPrXCK) 
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DRAW0136 
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DRAW 01 39 
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DRAWC146 
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yp=y(K) 

IFCISYK.LE.O) GO TC 220 

CALL KCVEACXP.yP) 

IF(ICFF.EC.O) CALL AKCKO(IT) 
220 IF(ITYP.KE.3) GO TC 230 

OSX(K)ryp 

QSX(L>=XP 

GO TO 240 
230 QSX(N)=XP 

Qsxa)=yp 

2il0 KrlSUB(K) 
QSX(L*1)=0. 
QSX(L-f2)=l. 
.XENrOSX(NPT+1) 
XIH=0SX(2) 
IFITP=ITyP-1 
BCKrBEG(IFITP) 
ECK=EN(IFITP) 
DELrsDEL(IFITP)«30, 
IF(XIW.LT.£CK) XINsBCK 
IF(XEK.GT.ECK) XEH=ECK 
KILL=0 

DO 280 M=l,200 
XI=XIN+DELT«(K-1) 
IF(XI.LT.XEN) GO TC 250 
KILLS 1 
XIsXEK 
250 yirSFLKCUnOSX.XI) 

IF(ITyp.E0.3) GO TC 260 

ypsYi 

GO re 270 

2£0 xp=yi 
ypsxi 

- 270 IF(K.EC.l) CALL MOVEA(XP,yP) 
IF(LDASH.EC.O)GO TO 275 
CALL DASHA(XP,yp.LDASK) 
GO TC 276 

275 IF(IWID.NE.2) GO TO 277 
CALL SHADE (XP.yp.IR) 

GO TO 276 
277 CALL DRAWACXP.yP) 

IFdKID.EQ.DCAa DWIDE(XP,yP,IR) 

276 IF (KPT. EC. 1) GO TO 290 
IF(KILL.EC-I) CO TO 2S0 

280 CONTINUE 
290 CONTINUE 
300 RETURN 
END 

CSNADE 

SUBROUTINE SHADE (XC.yO.IR) 

C0KK0N/TEKGPPR/LDEL,LCNT»KAXSR,LTV(17),ei(2),DELC2).EEG(2) 

CCMHCK /SHAD/KSHADE(2, 168) 

IXTOS(X)= ( (X-BEG( 1 ) )/DEL( 1 )+eOO) 

ITTCS Cy )= ( ( Y-BEG (2 ) ) /DEL (2 )*300 ) 

X=XO 

y=yo 

IF(IR.EC.-I) GO TC 200 
IF(XB.LT,X) GO TO 10 
X2SXB 

y2=yp 

XBsX 
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GO TC 15 
10 X2sX 

15 IX1=IXT0S(XE) 

iyi=iyTcs(yB) 

IX2=IXT0S(X2) 

iy2=iyTos(y2) 

IFCIX2.EC.IX1)CG TO 200 
SUFljCAT(iy2-iy 1)/FU5AT(IX2.IX1 ) 
E=iyi-SL«IX1 
ISX=FL0A T( IX 1 -600 ) /20 . 
20 ISXsISX^I 

IFdSX.LT.DISXrl 
IX=ISX«20+600 
.iF(IX,CT.IX2) .CO TO 200 
IF(ISX.GT.168)G0 TC 200 
iy=(SL«IX+B) 

isy=(iy.300)/20 

IF(ISy,LE.0)GO TO 20 
IF(ISy.CT.120)ISyr120 

DO 50 1=1. isy 

IW=I/61 +1 

IWSrKSHADEdVMSX) 

IP=SHIFT(1,(60«IV;.I^1)) 

IF((IP.ANI).IVS).EC.O)CO TO **5 

reSiIWS.AND,(77777777777777777777B-IP) 

GO TO 50 
^5 IWSsIVS.CH.lP 
50 KSHADE(IW,ISX)=IWS 

GO TO 20 
200 IR=0 

XBsXO 

yBsYO 

RETUFK 

EWD 
CSHADEIT 

SUBROUTINE SHADEIT(ITX.ITy,NTIT) 
COfa^OK /SHAD/KSHAI)E(2,168) 

DIKEKSION ITX(iJ.50).ITy(t|,50).IPP(100).rrN(100),IDN(20) 

IPEiJDs2700 

DEU20. 

IDXr20 

KMAXrl6£ 

DO 1000 H=1,NMAX 
IF(KSHADE(1,N).NE.0)G0 TO 10 
IF(KSHADE(2.N).KE.0)G0 TO 10 
IF((1.AND.KSHADE(1,N)).KE.0) GO TO 10 
IF((1.ANDVKSHADEC2,N)).KE,0) GO TO'lO 
GO TO 1000 
10 IPX=600.+DEL«N 
K=0 

DO 101 Lrl.NTIT 

DO .100 1=1. i< 

IX1=ITXCJ,L) 
IX2=ITX(I.L} 
lYlsITYCJ.L) 

iy2=iTyci.L) 

IKINXaMIN0(IXMX2) 
IFdPX.LE.IHIKX) GO TO 100 
IKAXXsMAX0(IXMX2) 
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IF(IPX.CT,IMA»C)GO TO 100 

.iF.( 1^1.^0. ja:20Go .T0..50 

S=(IX2-IX1)/FL0AT(IY2-iyi) 
fisFLCAT(IXl)-S«iyi 
m=IFIX(CFLOAT(IPX>-B)/S) 
50 LLsL 

IF(iyUGT.IPEND)GO TO 100 
IF(K.EC.0)GO TO 95 
DO 90 Klrl.K 

IF(iyKGT.lPP(K1))G0 TO 90 

IPSIsIPP(KI) 

IPP(K1)siyi 

lYIrlPSI 

IPSlsITN(MI) 

ITN(K1)=LL 

LLsIPSl 
90 CONTINUE 
95 

ITN(K)=LL 

ipp(K)=iyi 

100 j=i 

101 CONTINUE 
NC=0 
K=K+1 

IPP(K)=IPEND 
ITK(K)rO 
IPO=300 
ISUBrO 

*D0 200 Isl.K 

L=ITK(I) 

IPy=IPP(I) 

IF(NC.EC.0)GO TO 160 
DO 120 Jrl.NC 
IF(IDN(J).EC.L) GO TO 13O 
.120 CONTINUE ' 
NCrNC+1 

IF(NC.GT.10)ST0P "ERROR IN NC SHADEIT" 

IDNCNOsL 

GO TO 11*0 
130 IDK(J)=IDN(KC) 

KC=WC-1 
li^O IDX=(IPy/20)«20+20.IPy 

iPOsipy 

GO TO 200 
160 IFdPy.LT.IPO) GO TO 200 
165 IF(IPy.LT.(IPO+IDX)) GO TO 180 

IPO=IPO+IDX 

IDXs20 

ISUEsFLOAT C IPO-3 00 ) /2 0 . 

JVJrl 

IF(ISUE.GT.eO)IV;=2 
IWSsK5HADE(IW,N) 
ICP=SHIFT( 1 , {60«IW.ISUB+1 ) ) 
IF((ICP.AND.IWS)*EC.0)GO TO 165 
CALL PN TABS (IPX, IPC) 
CO TO 165 
1£0 CONTINUE 
IPOsIPy 
NCsNC^I 
IDK(NC)=L 
200 CONTINUE 
1000 CONTINUE 
END 
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CSPLNC1 

FUKCTION SPLKCl (NLOC.Xr^XIKDEP) 
COKMON/SPLCO/DX.CH 
C»«« LOCAL CUBIC FIT 8/9/77 K.J. CADDY 
DIKENSIOK X(1),CM(3) 

EQUIVALENCE (0M( 1 ) ,T3) , (CM(2) .02) , (0M(3) .C3) 

XINsXIKDEP 

NSsNLOC 

NOPrSsX(NS) 

IDrNS+NOPTS 

NSP1sNS+l 

NSP2sNS42 

IF(NOPTS.LE.I) GO TC 130 
IF(N0PTS.GT.2) CO TO 10 
N=ID+KOPTS 

T5=(X(N)-X(K-1))/(X(ID)-X(ID-1)) 
HsID 
KTRAPsI 
GO TO 280 
10 iIS2sN0PTS»2+NSP1 
LsX(llS2) 
LSC£NS2-^1 
ICMODEsX(LSC) 
KsL^NS 
NLrNSPI 
NHsID 
NTRAPs-l 

C*«« EIKARY SEARCH FOR INTERVAL 
IF(X1N-X(ID))30, 1^*0.20 
20 NTRAPrO 

GO TO 150 
30 IF(XIN-X(NSP1))40, 110,60 • 
. itO NTRAPsI 
50 K=NSP2 

..GO .TO leo 

60 IFCL)120. 120,70 
70 IF(XIN-X(K))80,100,100 
60 NHsK 
KsK-1 

- 90 IF(XIN-X(K))nO,100,100 
100 KLsK - 

CO TO 120 
110 NH=K 

120 K:(NN-NL)/2-i>NL 

IF(K-NL)90. 1iJ0,90 
130 Y0UTsX(NSP2) 

GO TC 320 
140 LFASTsL-KH^NS 

X(N52)sNK-KS 
150 K=NH 
160 MsK 

HcM^NOPTS 

y3=X(N-1) 

X3=X(K-1) 

C»«« CHECK FOR FAST MODE AND EXTRAPOUTION 

IF(HTRAP.GE.O) GO TC 180 

IF(IWCDE«L.EQ.O.CR.LFAST,NE.O) GO TC 180 

DO 170 1=1,3 
170 CK(I)sX(LSC^I) 

CO TC 310 
180 y^rXCN) 

XU=X(K) 



SPLN0001 

SPLN0C02 
SPLN0003 
SPUOOOil 
SPLN0005 
SPLN0a06 
SPU0007 
SPLN0008 
SPLN0009 
SFLNOOlO 
SPLN0D11 
SPLN0012 
SPLK0013 
SPLN0011I 
SPLN0015. 
SPLN0016 
SPLN0017 
SFLN0016 
SPLN001C 
SPLN0020 
SPLN0021 
SPLN0022 
SPLN0025 
SPLN0021 
SPLN0C25 
SPLN002£ 
SPLN0027 
SPLN002E 
SPLN0029 
SPLN0030 
- SPLN0031 
SPLN0D32 

SPLN0033 
SPLK0D3i| 

SPLKK);5 
SPLK0D26 
SPLN0037 
SPLNC:36 
SPLNCD39 
SPLKC31I0 
SPLNOOifl 
SPLN001I2 
SFLN0043 
SPLN00411 
SPLN0045 
SPLN0046 
SPLN0047 

SPLN0018 
SPLN0049 
SPLN0050 
SPLN0051 
SPLN0052 
SPLN0053 
SPLN005it 
SPLN0055 
SPLN0056 
SPLN0057 
SPLN0058 
SPLN0059 
SPLN0060 
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S3=(Yi*-y3)/A3 
IF(M.EQ.HSP2) GO TO 190 
X2=X(K-2) 
y2=X(N-2) 

S2=(y3-Y2)/(X3-X2) 
IF(K.EQ,ID) GO TO 200 
190 X5=X(K4^1) 
Y5=X(N+1) 

Si»s(y5"Y^)/(X5-Xi*) 
IF(K.EC.NSP2) S2=S34-S3-Sii 
GO TO 210 
200 S^rS3+S3-S2 

210 IF(K.LE.(KSP2+1)) GO TO 220 

S 1 = (y2-X (K-3 ) ) / CX2-X (K-3 ) ) 

GO TO 230 
220 '51=52+32-55 

230 IF(K.GE.(ID-1)) CO TO 2iiO 
S5=(X(N+2)-y5)/(X(K+2)-X5) 
GO TO 250 

2iI0*S5=£^>5^T33 
250 W2=AES(Sii-S:) 

W3=ABS(S2-S1) 

SWsW2+W3 

IFCSW.NE.O^O) GO TO 260 
W2=0.5 

SKrl.O 
260 T35(V2*S2+V3*S3)/£W 
V3=ABS(S5-Sii) 
Wii=ABS(S3-S2) 
SW=V3+W4 

IF(SW.NE.O.O) GO TO 270 
W3=0.5 

SW=1.0 
270 Til=(V3*S3+Vi|«Sii)/SV 

IF(NTRAP.LT.O) GO TO 290 

IF(NTRAP.EC.O) T3=Ti^ 
280 IX=M-NTRAP * 
C«»« FAST EXIT FOR 2 POINTS AKD LINEAR EXTRAPOLATION 

yOUTsX (IX+NCPTS )+ (XIN-X(IX) ) «T3 

GO TO 320 
290 02=(2.0<{S3-T3)+S3-Ti*)/A3 

Q5= (-S 3-S3+T3+TiJ ) / ( A3* A3 ) 

IF(IQMODE«LFAST.EC-0) GO TO 310 

DO 300 1=1.3 
300 X(LSC^-I)=CK(I) 
310 DX=XIN-X3 

y0UTsy3+DX»(T3+DX«{Q2+DX«Q3)) 
320 5PLNC1=y0UT 

RETURN 

END 

CPTITE 

SUBROUTINE PTITE (IXI . lYI , NTL, UBTL, IC , KH . AT, IPX, IPY ) 
DIMENSION UBTL(1),IP(136),IPX(ii),IPy(i;) 

C NTL =NUMEER OF 10 CHARACTER WORDS 

C NH MAX CHARACTERS PER LINE 

C AT ANGLE OF TITLE 

C IX SCREEN CENTER 

C IT SCREEN CENTER 
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SPLN0061 
5PLN0062 
SPLNO063 
SPLN006^ 
SPLN0065 
SPUO066 
SPLN0067 
SPLN006e 
SPLN0069 
SPLN0070 
.SFLN0071 
SPLN0072 
SPLN0073 
SPLN007^ 
SPLN0075 
SPLN0076 
SPLN0077 
SPLN0078 
SPLN0079 
SPLN0080 
5PLN0081 
SPLN0082 
SFLN0083 
SFLNOOS'f 
5n.N0Q85 
SPLN0086 
SPUI0087 
SFLNd088 
SFLN0089 
SFLM0090 

iSPUiDb92 
SFLN0093 
jSPLlU)09^* 
5PLNb095> 
SFLN0096. 

Sn.H0b9X 
is'PLNd09iSL- 
SPLN0099 
SFLVOIOO 
SPLKOlpi 
SPL11G102 

spln6io3 

SH.K0104 
SPLNOI65 

isPLNOloe 

SPLKOiOT 
SPLKOIOB 
5PLK6ib9 
SPLH0110 

SitHbiii 

5K.Kbij2 
isiPtK0tt3 
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c 



IC =r NOT CEKTERED TITLE 
IF(NTL.LE.O) RETURN 
NC=10«KTL 
C0=1. 
SlrO. 



C 



GET CHARACTER SIZE 



CALL CSI2E(IHCR2,IVERT) 
C COrtV^RT U5£L TO s\J)l 

NRsNC 

IF(KC.CT.70)NR=70 
CALL . KAK2AS (NR . UBTL,IP ) 
IFCNR.EC.NOGO TO 5 
NRrNC-70 

CALL KAK2AS(NR,UETL(8),IP(71)) 

5 n=ixi 

lYsIYI 
IX1=IX 
lYlsIY 

ITLIrO 
NCKsO 
NLsO 
NBLKsO 

CALL LINRDT(AT) 
ANGrAT*. 017^5329252 
COrCOS(ANG) 
SIsSINCANG) 
DO 70 K=1.KC 
C CHECK FOR LEADING BUNKS 

IF(IP(K).KE.32) GO TO 10 
IF(ITLUEO.O) GO TO 70 
KBLKrNBLK-1.1 

C CHECK FOR 3 BUNKS TC TERMINATE LINE 

IF(NEU.NE.2) GO TC 20 
ITL1=:ITL1-2 
GO TO 50 
10 NBLKsC 

C CHECK FOR KAX LINE LENGTH EXCEEDED 

20 IF(ITLI.LT.NM) GO TO 30 

IF(IP(K),E0.32) GO TO 50 
30 ITLIrlTLUI 
IPdTLDsIPCK) 
IF(K.LT.NC) GO TO 70 
^0 ITLIrlTLI-NBLK 
C CHECK FOR VERTICAL OR H0RI2 LABEL 

. 50 IF(nL1.GT.NCK)NCK=ITL1 
NLsNL*»-1 

IX1rIX-IHOR2*ITL1«.5»CO*(1-IC) 
IYP=IY1-IHOR2»ITL1«.5«SI«(l-IC) 
CALL NOTATECIXMYP.ITLT.IP) 
IX=IX^-IVERT*1.1»SI 
IY1cIYl-IVERT*1.1»C0 
ITLIsO 
70 CONTINUE 

XHs.5«IHOR2»NCM+.5«IHOR2 
YH=1.0«IVERT 

.;CHHr.5*IH0R2*i;CM«IC 
IXIsIXI*CO*XHH 
IYI=IYI-fSI«XHH 
IPX(1)sIXI-XH«C0.YH«SI 
IPY(1)=IYI-XH»SI*YH«C0 
IPX(2>sIXI+XH*C0-YH«SI 
IPYC2)siyi-^XH«SUYH«C0 
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yHs( 1 . 1*IVERT« (NL-l )+ .?«IVEPT) 
IPY(^)=iyi-XH«SI-YH«CO 
IPX ( 1 ) sIXI-XH • COf YH »S I 
lPX(3)=IXI^.XH»CafYH*SI 

ipyc3)=ni+XH«si-YH«co 

END 
CPGRIDX 

SUER OUTINE PGR IDX ( ITX . ITY , NTIT , NXU , K YU , IDX , ISKI P ) 

DIMENSION ITX(i| , 50 ) , ITY (H , 50 ) , IPP ( TOO ) . ITN ( 1 00 ) , IDN ( 1 0 ) 

IPEND=3960 

DEL=2il00./NYU 

NHAXrKYU+t 

DO 1000 N=1,NKAX,ISKIP 

IPY=300.+DEL«(NKAX-N) 

KsO 

DO 101 UUHTIT 

DO 100 Irl.il . 
•IX1=ITX(J,L) 
IX2=ITX(I,L5 
lYUITYCJ.L) 
IY2iITY(I.L) 
IMIHYsHIN0(IYMY2) 
IFdPY.LE.IKINY) GO TO 100 
IKAXy=MAX0(iyi,IY2) 
IF(IPY.GT.IKAXy)GO TO 100 
IF{iai.EQvIX2)GG TO 50 
Ss{IY2-IY1 )/FLOAT( 1X2-1X1 ) 
ErFL0AT(IY1)-S«IXl 
IX1=IFIX((FL0AT(IPY)-B)/S) 
50 LL=L 

IF(IX1.GT.IPEKD)G0 TO. 100 
IF(K.EC.0)G0 TO 05 
DO 90 M1=I,K 

IF(IX1.GT,IPP(M1))C0 TO 90 
IPSlsIPPCKI) 
* IPP(K1)=IX1 
IXlsIPSI 
1PS1=ITK(H1) 
inUKDsLL 
LLrlPSI 
SO CC.NTIi;UE 
95 KrK+l 
JrN(K)=LL 
IPP(K)=IX1 
100 Jfcl 
- 101 CONTINUE 
HCzO • 
KtK+1 

1PP(K)=IPEND 

irN(K)=0 

IPOr600 

CALL MOVAES(IPO.IPY) 
DO 200 Isl.K 
LcITN(I) 

IPXrIPPd) 

IF(KC.EQ.O)GO TO 160 
DO 120 Jsl.NC 
3F(IDK(J).E0.L> CO TO 130 
120 CONTINUE 
NCsNC-fl 
IDN(NC)rL 
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GO TO 1ilO 
130 IDN(J)=IDK(NC) 

WCrNC-1 
1^0 CALL KOVABSdPX.IPY) 

GO TC 200 
160 IF(IPX.LT.IPO) GO TO 200 
165 IF(IPX.LT.(IPO+IDX)) GO TC 180 

IPO=IPO*IDX 

CALL DRWAESCIPO.IPY) 

GO TO 165 
180 CALL DRWABSdPX.IPY) 

IPO=IPX . 

NC=NC^1 

IDNCNOrL 
200 CONTINUE 
1000 CONTINUE 

END 
CPCRIDY 

SUBROUTINE PGRIDYCITX. ITY.NTIT.KXU.KYU. IDX. ISKIP) 
WMEKSICJi ITX(*I,50),ITY(1|,50).IPP(100),ITK(100).IDK(10) 
IPEND=2700 

DEL=3360./NXU 
NMAXrNXU-fl 

DO 1000 K=1,KMAX.ISKIP 

IPX=600.+DEL«(NMAX-K) 

KtO 

.DO lOJ .L=1JhT2,T 
Js*t 

DO 100 Irl.il 
IX1=ITX(J,L) 
1X2=ITX(I,L) 
lYUITYCJ.L) 
IY2=ITY(I.L) 
IKINXsKIN0(IXMX2) 
IF(IPX.LE.IKIKX) CO TC 100 
IHAXXsKAX0(IX1.IX2) 
IF(IPX,GT.IMAXX)GO TC 100 
IF(IY1.E0.IY2)GC TO 50 
S=(IX2-IX1 )/FL0AT(IY2-iy 1 ) 
B=FL0AT(IX1)-S«iyi 

IY1=IFIX{(FL0AT(IPX)-B)/S) 
50 LLsL 

IF(IY1.GT.IPEKD)G0 TO 100 
IF{K. £0.0)00 TO 95 * 
DO 90 KIsl.K 

IF(iyi.GT.IPP(H1))G0 TO 90 
IPSUIPPCKI) 

IPP(K1)=IY1 

lYIrlPSI 

IPS1=ITNa:i) 

ITN(K1)rLL 

LL=IPS1 
90 COKTIKUE 
95 KsK+1 

ITK(K)=LL 

IPP(K)=IY1 

100 Jsl. 

101 CONTINUE 
NCsO 

. -^K^l 

IPP{K)sIPEND 
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m{K)=o 

IP0=300 

CALL KCVABSdPX.lPO) 
DO 200 1=1, K 
L=ITN(I) 
IPYsIPPCI) 

IFCNC.EQ.O)GO TO 160 
DO 120 Jrl.NC 
IF(IDN(J).EC.L) GO TO 130 
120 CONTINUE 

NCs:KC+l 

IDN(NC)=L 
GO TO 1^0 

NC=NC-1 
W CAU MCVABSdPX.IPY) 
IPOsIPy 
CO TO 200 
' 160 IF(IPy.LT.IPO) GC TO 200 
165 IF(IPY.LT.(IPO+IDX)) GO TO lEO 
IPO=IPO+IDX 
CALL DRWAESdPX.IPO) 
CO TO 165 
180 CALL DRWAESdPX.IPY) 
IPOcIPy 
NC=NC^1 
.IDN{NC)=L 
200 CONTINUE 
1000 CONTINUE 
' END 
CINTITE 

SUBROUTINE INTITECXO.YO) 
C»**«« SPECIAL INTERACTIVE TITLE ROUTINE 

DIMENSION lOUICKOO) ,KSG 1(11) ,KSG2(5 ) ,MSG3(5 ) .KSGiJ( 19 ) .HSG5C 1 1 ) 

DIHENSIOK KSG6(7) 

DIMENSION IPPX(«0.IPPY(^).VTEM(5) 

C0MMON/ITITLE/IT(50) . JT(50) ,KT(50) ,LT(50) .MT(50) .ST(50) , 

1 XT(5O),yT(50).XU(50),YU(50).XV(50),YV(50),ITC(8,50)»NTITE 
CCMM0N/TE:KGPPR/LDEL,LCNT.KAXSR,LTV(17).EN(2).DEL(2),BEG(2),RDX2, 

1 RDY2 , NLINE , NDR AW ( 50 ) 
IXTOS (X )= ( (X-EEC ( 1 ) ) /DEL ( 1 )+600) 
lYTOS C Y )= ( ( Y-BEG (2) ) /DEL <2 )*300 ) 
XTOSXCX )= (X-600, ) *DEL ( 1 )+BEG ( 1 ) 
YTOSYCY )= { Y-300. ) «D£L (2 )+EEG (2 ) 
DATA ICUICK/7.0,9,^.0.0,0.2,0,0, 
. 1 0.1..2..6,0.8.5.0,3,0, 

2 * 0,2,0,0,0.0,0.0,0,0/ 
C»»*« ANGLE POINT 

DATA MSGl/65,78,71,76.69,32,60.79,73.7B,6ii/ 
C»««« SIZE 

DATA HSG2/83,72t 90.69,32/ 
C»»»« TITLE 

DATA KSG2/8^,73. 8^,76. 69/ 
C»»»» ILLEGAL 

DATA «SC6/73,76,76.69,71,65,76/ 
C*»«« ENTER IT, ANGLE, SIZE 

DATA MSCil/69,78,8^,69.e2.32.73,'*^,7*t,i*'),75,^^.65,7e,71, 
1 83,73*90/ 
C»»«« ENTER TITLE 

DATA MSG5/69,78,8i*,69,e2.32,£il,73,8^,76,69/ 

LCNT=LCNT.50 

CALL .PLCKAR(25.29) 
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CALL ANMCDE 

CALL NOTATE(0.LCNT,5.KSG3) 

IF(NnTE.EC.0)CO TC UO 

GO TC 20 
' 10 CALL PLCHAR(25.3g) 

CALL VCURSR(ICHAR,XO,yO) 
C*«»t IP HQ TITLES THEN ASSUME TC ADD CNE 

IF(NTITE.EO.O)GC TO W 
, IF(ICHAR,LT.6J^.OR.ICHAR.GE.95) GO TO 210 

I ICKARrICHAR-6ii 

ICKECKrlOUICK(ICHAR) 

IFCICHECK.EC.O) GO TO 210 

GO TO (20.50,70,80,220,140.110. 180, 300)ICHECK 
C«»«» 7=A ANCLE 
C*»«« UC POSITIOK 
C«««» II =D DELETE TITLE 
C«*«« 5=E EXIT FROM INTERACTIVE TITLE 
C*»«« 2=M MOVE TITLE POSITION 
C*»«« 6=N NEk' TITLE INSERT 
C««»* 3=S CHANGE SIZE OF LETTERS 

C««ftc POSITION ON TITLE CLOSEST 
20 DSAVE=UEilO 
DO HO Krl.NTITE 
XXX=XT(K) 
YYYsYr(K) 

IF(ITCK).EQ.O)GC TO 30 
XXXrXTOSX(XXX) 
YYYrYTOSYCyyy) 
30 XDXsXXX-XO 

YDY=yyy.yo 

DIST=XDX«XDX«RDX2+yDy«yDY«RDy2 
IF(DIST.GT.DSAVE)GO TO UO 
NTF=K 
XXP=XXX 
YYPrYYY 
DSAVE=DIST 
iiO CONTINUE 

CALL POINTA(XXP.YYP) 
CO TC 10 

Cft««f i KOVE TITLE AND CORRECT ANGLE 
50 IF(KTF.EQ.0)GO TO 210 

IFCIT(NTF).EC.O)GO TO 60 

XO=IXTOS(XO) 

YOsIYTOSCYO) 
60 XT(NTF)sXC 

yTCNTF)sYO 

CALLvPOlNTACXCYC) 

IFCICHAR.KE,£)GO TO 61 

XUCNTF)sXV(NTF)=0. 

YU(NTF)=yV(NTF)=0. 

GO TC 160 
' 61 IF(ICHAR.NE.22)G0 TC 62 

XU(Nir)=XV{NTF)=yU(NTF> = 0. 

yV(NTF)=l. 

CO TC 180 
62 CALL VCURSR(ICA,XO,YO) 

XU(NTF)aXO 

YU(NTF)5yO 
120 CALL POIKTA(XO,yO) 

CAa VCURSR(ICH,XB,yE) 

CALL POINTA(XB.yE) 
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XV(HTF)=XB 
yV(NTF)=YB 
C*«»» PLOT NEW TITLE 
GO TO 180 

C»««« CHANGE THE SIZE OF THE TITLE 
70 IF(NTF.EQ.O) GO TO 210 
LCNT=LCKT.50 

CALL NOTATE.(0.LCMT,5.HSC2) 
CALL ANKODE 
CALL GETIN(nST(N.TF)) 
GO TO 10 

C»««« DELETE TITLE 

80 IF(NTF.EO.O)GO TO 20 

IF(NTF.EC.NTITE)GO TO 100 

IT(NTF)sIT(NTITE) 

JT(NTF)=JT(NTITE) 

KT(NTF>=KT(NTITE) 

ST(NTF)=ST(NTITE) 

XT(NTF)=XT(NTITE) 

yTCNTF)=rr(NTITE> 

XU(NTF)=XU(NTITE) 

yU(NTF)=yU(NTITE) 

XV(NTF)rXV(NTITE) 

yV(NTF)=yV(NTITE) 

DO 90 1=1,8 
go ITC(I,KTF)=ITC(I,NTITE) 
100 NTITEsNTITE-1 

NIF=0 

CO TO 10 
C«««* . 

Ct»it ADD ARRCk' TO TITLE CODE 
-C*«** 

no NTIT£=HTITE+1 

NTFsNTITE 

IT(NTF)=0 

JT(NTF)sO 

KT(NTF)=1 

DO 150 1=1.8 
150 ITC(I,NTITE)=10H 

ITC(1,NTITE)=10HARROV 

GO TO 60 
C«#»« ADD KEV TITLE 
IHO LCNT=LCNT-50 

CALL KOTATE(0,LCKT.10.KSCi|) 

CALL ANHODE 

CALL GETIN(2,VTDI) 

LCKT=LCNT-'50 

CALL N0TATE(0,LCNT,11,KSG5) ' 

NTITE=NTITE+1 

NTFsKTITE 

IT(NTF)sVTDl(1) 

JT(KTF)=VTEM(2) 

KT(NTF)=0 

ST(NTF)=.15 

CALL ANMCDE 

READ (5.170)(ITC(I.NTITE),I=1.8) 
170 FORKAT(8A10) 
GO TO 50 

C*«»« PRINT TITLE AND ASK AGAIN 
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180 IF(WTF.EC.0)CO TO 210 
IsNTF 

IF(KT(I).EQ.1)C0 TO 200 
CALL SWCUAR(l) 
IXrXT(l) 
lYrYTd) 

IF(IT(I).EC.1)G0 TO 190 
IXrIXTOSCXTd)) 
lYrlYTOSCYTd)) 
190 1F(STCI).LE.0.)ST(1)=.10 
lCHs:KIN(ST(I)».873) 
ICVsICH»I.6 
IC=JT(I) 

CALL PLCKARCICH.ICV) 

DANGXs ( XV ( I )-XU ( I ) ) »SQR T ( RDX2 ) 

I)ANCY=(YV(I)-YU(I))»S0RT(RDY2) 

ANGsO. 

IF(DAMGY.EC.O..AKb.DAKGX.EC.O.) GO TO IC5 
.m=m«2CJ()AMGY, PAWPX)»57* 2957795 

195 CALL PTITE{IX.IY.e.ITC(M).IC,70,ANC.IPPX,IPPY) 

CALL LIKRCTCO.) 

CALL SWCHAR(O) 

GO TO 10 
200 lAlrlXTOSCXUd)) 

IA2=IYT0S(YUd)) 

IBIsIXTOS(XVd)) 

IB2sIYT0S(YV(I)) 

CALL HCVEA{XT(I),YTd)) 

CALL DARR0W(IA1.IA2,IB1,IB2) 

GO TO 10 

C»*»« COPY HEADIMG 

300 IF(NTF.EO.O)GO TO 210 

NTOsNTF 

NTITE=NTITE+1 

NTFsNTITE 

IT(NTF)=IT(NTO> 

JT(NTF)sJT(NTO) 

KT(NTF)sKT(NTO) 

ST(NTF)=ST(NTO) 

DO 310 Ir1,8 
310 ITC(I,KTF)cITC(I,NTO) 

GO TO 50 
210 LCMT=LCNT-50 

CALL NOTATE(0,LCNT,7.MSG6) 

CO TO 10 

C»«t» 

C»»«« END OF INTERACTIVE TEST 
220 RETURN 
END 
CDARROW 

SUBROUTINE DARR0W(IX1,IY1,IX2.IY2) 

CALL DRWAESdX1,IY1) 

ANCrO. 

IF(IY2.EC.IY1.AND.IX2.E0.IX1)G0 TO 10 
ANC=ATAN2(FL0AT(IY2-IY1).FL0ATdX2-IXl)) 
10 I2=IY2-eO.«SIN(ANG-.2) 
II =1X2-80 . * CCS ( ANG-. 2) 
I^)sIY2-80.*SIN(ANG*.2) 
12=1X2-80 . • COS ( ANC+ .2) 
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IX=.5«(IUI3) 

CAa DRWABS(IX,IY) • 
CALL DRWAES(I.1.I2) 
CALL DRWAES(IX2.iy2) 
..CALL ^DRWALSOI^.'I^) 
CALL DRVAESCn. 12) 
RETURN 
END 
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CGETIN 



GETIOOOl 



SUBROUTINE GETIN(HIN»Y) 



SIMULATED KISSICK ENGINE TEST CODE 
MICHAEL CADDY 3/19/78 
DIMENSION Y(1),IC(80) 

FREE FORM INPUT CODE 
NWsO 
10 JsO 

READ 20. IC 

CHECK FOR END OF FILE 
IF(E0F(5).EQ.0)G0 TO 30 
NINsNW 
RETURN 
20 FORMAT(80R1) 
30 JC=0 
JD=0 
JSsI 
NCrO 
X=0. 
i*0 J=J*1 

ONLY ONE CARD PER INPUT READ 
MODIFIED TO READ MORE THAN ONE CARD H/26/7e HJC 
IF(J.GT.80) GO TO 10 
I=IC(J) 

CHECK FOR VALID NUMERIC FIELD 
IF(I.CT.32B.AND.I.LT.ll5B) GO TO 110 

IGNORE LEAD ^ SIGN 
IF(I.E0,45B) GO TO MO 

SET FUG FOR NEGATIVE VALUE 
IF(I.NE.il6B) GO TO 50 
JSs-1 
GO TO ^0 

CHECK FOR DECIhUlL 
50 IF(I^NE-57E) GO TO 60 
IF(JC.EC.-I) GO TO 120 

IF THIS IS SECOND DECIMAL BLOW OFF TO ERROR CODE 
JCs-l 
GO TO HO 

CHARACTER IS BUNK TREAT AS COMMA IF NOT LEADING 
60 IF(I.EC*55B)GO TO £0 
IF(I.E0.56E)GO TO 70 
GO TO 120 

,70 jr(NC.GT.CiGC-.JC 3.0 
HW=NV+1 

IF(NK.GT.NIN) RETURN 
CO TO i;o 

TVO COMMAS ..IGNORE THIS DATA FIELD AND GO ON TO NEXT 
£0 IF(NC.EC.O) GO TO HO 

SHIFT DECIMAL TO NUMBER 
90 X=JS«XMO."JD 
NWsNW^I 



CETI0002 - 

GETI0002 

GETIOCQit 

CETI0005 

GETI0006 

GETI0007 

GETI0008 

GETI0009 

GETI0010 

GETIOOn 

GETI0012 

GETI0013 

GETlOOli* 

GETI0015 

GETI0016 

GETI0017 

GETI0018 

GETI0019 

GETI0020 

GETI0021 

CETI0022 

GETI0023 

GETI002iI 

GETI0025 

GETI0026 

GETI0027 

GETI0028 

GETI002S 

GETI0030 

GEHOOSI 

GETI0032 

GETI0033 

GETI003H 

GETI0035 

GET10036 

GETI0057 

GETI003E 

GETIO059 

GETIOOiiO 

GETIOOi*! 

GETI00i*2 

GETIO0il3 
GETIOOUH 

GETIOO^IS 

GETI 00^*6 

GETI00H7 

GETIOOHe 

GETI00H9 

GETI0050 

GETI0051 
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Y(WW)=X CETI0052 

IFCNW.CE.NIH) RETURN CETI0053 

CO TO 30 CETIOOSJ^ 

no JD=JD+JC GETI0055 

KCsKC+1 GETI0056 

C ADD DIGIT TO NUMBER CAREFULLY GETI0057 

X=X«10+(I-33B) . GETI0058 

GO TO iiO GETI0059 

C ERROR CODE GETI0060 

120 DO 130 K=t,80 GETI0061 

130 IC(K)=55E GETI0062 

ICUUmB GETIO063 

PRINT 140 ,IC GETIOOeH 

11*0 FORMAT(2X,e0R1) GETIOOeS 

PRINT 150 CETIO066 

150 FORHATC* EAD FIELD, RE-ENTER DATA«) GETI0067 

CO TO 10 CETiooee 

END GETI0069 
SUBROUTINE AXIS(IX,IY,IEX,IEy.ID.IC,AB,DT.EX.IJ. J22.NTB,LINE,SI2) 

C 

C IX -ORIGIN X-COORDINATE (SCREEN UNITS) 

C lY - ORIGIN T-COORDINATE (SCREEN UNITS) 

C IE - AXIS LENGTH (SCREEN UNITS) 

C ID - NO. OF DIVISIONS ON AXIS 

C IC ~ OsHORIZONTAL LINE ; IsVERTICAL LINE * 

C AE— AXIS BEGINNING (REAL UNITS) 

C DT—CHANCE IN SCALE BETWEEN TIC MARKS (REAL UNITS) 

C NTB— NO. OF MINOR TICKS 

C LINE-<jRID LINE CCDE(DRAW EVERY N GRIDS) 

C SI2-CHARACTER SIZE 

DIMENSION NODEC(il) 

DIMENSION JA(IO) 

JZsJZZ 

XB=IX 

YBsIY 

CALL SVCHAR(I) 

ICH=KIN(SI2«.673) 
lEsIEX 

IFdCEC.D lEsIEY 
JCV^:ICH.*K6 
CALL PLCHARdCH.ICV) 
CALL CSIZE(Jtf.JV) 
DATA XY/292./ 
DO 1 Isl.li 
1 NODEC(J)=0 
Y=0. 

C DETERMINING NO. OF DECIMAL PTS IN UBELS ON AXIS 
CALL ANNOT ( I X . Y . 2 . JA , IJ , NODEC ( 1 ) , NO , NODE ) 
LLsNC 

CALL ANN0T(IY,Y.2.JA,IJ,K0DEC(2),N0,N0DE) 
IF(NO.GT.LL)LL=NO 

CALL ANN0T(AB,Y,2, JA,IJ.N0DEC(3) ,NO,NODE) 
IF(NO.GT.a)LLrN0 

C ALL ANNOT (DT , Y , 2 , JA . IJ . NODEC ( il ) , NO , NODE ) 
IF(NO.GT.a)LL=NC 

NODEsMAX0(NODEC( 1 ) .N0DEC(2) .N0DEC(3) .NODEC(il)) 
EXsO. 

C DETERMINING EXPONENT 

DAsAES(DT) 

IF(DA) 3,7.3 
3 IF(DA-99.) 6. il.il 
i| DAsDA/10. 
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GO TC 3 

5 DArDA«10. 
EX=EX-1. 

6 IF(DA-.OI) 5,7.7 

7 CONTINUE 
XV=AE»10.»«(-EX) 
DA=DT«10.«*(-EX) 
AArIC«2-l 
CH=1-IC 

SH=IC 

KTsID-fl 

JTrJV 

IF(IC.EO.O) JTraL+2)«JH 
NA=IE/ID 

C«»*« JZr HOW MANY TO SKIP LABELING 

60 IF(JT^LT.J2»KA) GO TO 70 
J2s2*J2 

GO TC 60 
70 KX=XB+CH«IE 

HYrYB+SH^IE 

CALL HCVABS(KX,KY) 

lDX=-Xy«AA«SH«.07 

IDY=Xy*AA»CH«.07 
C»«#« NUMBER OF MINOR TICKS 

N'TE£=NTB+1 
C«««« TOTAL NUKEEh OF TICKS 

IAsID«KTfct 

DELrFLOATC IE) /FLOAT (lA) 
C LOOP FOR AXIS LINE & TICS 
DELM=FLOAT(IE)/ID 
DC 30 1=1. KT 
KX=XB+DELH«CH»(NT-I) 
Ny=Y£+DELM*SH«(NT-I) 
KL=2 

CO 30 J=1,NTEE 

CALL DRWABSCNX.KY) 

CALL DRWAE£(NX+IDX«KL,NY+IDY«KL) 

CALL DfiWAFS(KX.NY) 

IF(I.EC.NT) GC TC 3^ 

IAsIA-1 

NX=XB+DEL*CH«IA 

NY=yB+DEL«SH«IA 
30 KL=1 
3^* XcIX+IDX 

Y=IY+IDY 

IF(IC.EC.O) GC TC 61 

X=X-LL«JH 

CO TO 62 

61 XrX-JK 
Y=Y-JV 

62 XV=AE*10.**(-EX) 
YK=U 

XNrNX 

CALL ANNOT(XV , X , YN , JA , IJ , J , NO, NODE ) 

NN=IFIX(X)-JH 

JJ=IFIX(Y). 

IFCICEC.O) JJ=JJ.IFIX(.1«JV-IDY) 
NNXsNK-JH«<N0/2)-JH/2 
IF(IC.EC.I) NNXrIX+IDX-6.0«JH 
IFCIC.EC. l)JJ=JJ-3*JV/£ 
CALL N0TATE(NNX,JJ,5tJA} 
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KTT=KT-1 

DEUFLOAT(IE)/ID 
C UEEL AXIS 

DC 65 Irl.NTT 

XV=XV+DA 
XNsXN^CH 
YNcYK+SH 

IFdK.KE.JZ) GC TO 63 
IK=0 

CALL ai;kot(xv . xk , yk , ja, jj . J . iic , imz ) 

IF(IC.EC.0)GO TO 50 

JJ=JJ-i.(DEL«JZ) 

GO TO 51 
' 50 NK=NN+(DEL«J2) 

NNX=NNWH«(N0/2)-JHy^2 
51 CALL KCTATE(f;KX,JJ.5.JA) 
63 CONTINUE 

RETURK 

EKD 

SUERCUTIKE AHNOT {X , Y . 2 , JA , I J , K , KO , NCDE ) 
C SUEROUTIKE TO DETERMINE CHARACTERS FOR UEELLIKG AXIS 
C OUTPUT GOES IN JA{1-10) (LEFT JUSTIFIED) 

DIMENSION JA(IO) 

XXsX 

1=0 

DO 1 Jrl.10 
1 JA(J)=32 

ENCODE (10,5.1) XX 
5 F0RWAT(F10.2) 

CALL KAK2AS(10,I,JA) 

IF(JA(1).KE.32) GO TO 50 

DO 10 Isl,9 

IF(JA(I).KE.32) GO TO ilO 
10 CONTINUE 

GO TO 50 
MO DO »i5 Jrl.10 
M5 JA(J.I+1)=JA{J) 

Lrl2-I 

DO i|£ KfiL.IO 
*I6 JA(K)s32 
50 CONHNUE 

"^F(2.GT..5) GO TO 'SO 
NsO 

DO 110 Irl.10 
IF(JA(I).KE.*ie) GO TO 110 

IF(JA{I*2).NE.32.AND,JA(I-f2).KE.i*8) GC TO 20 

IF(JA(I+1).NE.32.AND.JA(U1).KE.4e) GC TO 15 
no CONTINUE 

GC TC 25 
15 N=1 

GO TC 25 
20 N=2 
25 CONTINUE 

RETURN 
30 CONTINUE 

IF(NODE.GT.O) G0T02 

DO vljDI JL=1. 10 

IF(JA(I).NE.il6) GCT0101 

JsI-1 

DO 201 KsI.lO 
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201 JA(K)r32 

CO TC 100 
101 CCKTIKOE 
GCTC100 
2 DO 12 1=1, 10 

IFCJACD.KE.iie) GCTC12 

Jrl^NCDE^l 
DO 22 K=J,10 
22 JA(K)r32 
J=J-1 
GO TO 100 
12 CONTINUE 
100 CONTINUE 
N0s5-J 

IFCJA(l).EC.^6.AND.J.NE.l) JA(1)=32 
IF(J.GT.i|)RETURN 
DO 1161 Lsl,J 
JA(6-L)=JA(J+1-L) 
ii6l JA(J-U1)=32 
RETURN 
END 
CAXSCAL 

SUBROUTINE AXSCALE (X,AXL,N.XS TART, XING. IS IZE) 
C »*« X-ARRy OF DATA AXL-AXIS LENGTH INCHES 
C «•« NO. OF POINTS IK ARRAY $ XINC-INCEEWENT PER INCH 
C "* XSTART FIRST NO. ON AXIS 

C »«« ISIZEsO USE 10 TO THE INCH SCALING ,N0T rO USE 20 
DIMENSION X(1),L(5) 

XMAXsXMINrXd) $ L(l)r1 $L(2)=2 $ L(3)=5 $L(^) = 10 $ L(5)=20 . 

IF(AXL.LE.^0.)AXL=1. 

IFdSIZE.NE.O) L(3)=^ 

IF(N.LE.l) GO TO 70 

DO 60 1=2, N 

XCHECKsXd) 

IF(XCHECK.CT-XMAX)XK.AX=XCHECK 

IFCXCHECK. LT. MUN )XKlN=XCHECk 
eO CONTINUE 
70 F=(Xh:AX-XHIN)/AXL 

IF(F.EC,0.) FsXHAX/AXL 

J=-10 

DO 100 1=1,20 
K=10.»*J«F 

IF{K.NE.O) GO TC 110 
100 J=J*1 
no .10,120.2^2^^ 

IF(L(I).GT.K) GC TO 130 
120 CONTINUE 

130 XINCsL(I-1)/10.**J 
K=XHIN/XINC 

IF((XKIN/XIKC).LT.-.06) K=K-1 
XSTART=K«XINC 

XH=(XKAX-XSTART)/XirJC 
XL={XHIN-XSTART)/X1KC 

IFCXH.GT.(AXL+.0£>.CR.XL.LT.-.06) lil0,150 
1^10 1=1+1 

CO TC 130 
150 CONTINUE 

RETURN 

END 
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What is claimed is: 

1. A process for generating a camera-ready hardcopy 
of a graphical plot of certain physical quantities or exist- 
ing plots using a general purpose digital computer, a 
graphics display terminal having an alpha-numeric key- 
board and a cursor control, and an associated printer, 
comprising in sequence the steps of: 
storing in the computer an interactive graphics code 
and coordinate data in tabular form associated with 
the physical quantities or existing plots, said code 
being identified by interactive command repetition 
and feedback for deletion, addition and transition 
of lines, points and labels while processing the 
stored coordinate data; 
plotting on the screen the stored coordinate data in a 

format according to said code; 
generating on the screen lines between the plotted 

coordinate data according to said code; 
revising the coordinate data and the lines plotted on 
the screen by manipulating the cursor and key- 
board in accordance with said code, said revising 
step further including 

adding coordinate data to create new lines, 
deleting coordinate data to remove lines, and 
moving coordinate data to change the position of 
existing lines; and 
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printing a hardcopy of the revised plot on the printer. 

2. A process as recited in claim 1, wherein, inmiedi- 
ately following said step of revising the coordinate data, 
the following step is included: 

5 labeling appropriate areas of the revised plot on the 
screen by manipulating the cursor and keying the 
computer in accordance with the interactive code. 

3. A process as recited in claim 2, wherein immedi- 
ately following said step of labeling, the following step 

10 is included: 

shading appropriate areas of the revised plot on the 
screen by manipulating the cursor and keying the 
computer in accordance with the interactive code. 

J 5 4. A process as recited in claim 3, wherein immedi- 
ately following said step of shading, the following step 
is included: 

applying appropriate reference symbols and charac- . 
ters to the revised plot on the screen by manipulat- 
20 ing the cursor and keying the computer in accor- 
dance with the interactive code. 

5. A process as recited in claim 1, wherein said step of 
plotting comprises: 

establishing appropriately scaled and titled coordi- 
nate axes on the screen; and 

establishing appropriate grid lines substantially hori- 
zontally and vertically on the screen. 

* * * > * 
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